Создание собственного компонента, происходящего от Edit

//---------------------------------------------------------------------------
class PACKAGE TEditMF : public TEdit
{
private:
     AnsiString __fastcall GetmfDate();
     void __fastcall SetmfDate(AnsiString);
protected:
public:
        __fastcall TEditMF(TComponent* Owner);
__published:
//     TDateTime *moDaT;
   __property  AnsiString mfDate= {read=GetmfDate, write=SetmfDate, nodefault};
};
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "EditMF.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
static inline void ValidCtrCheck(TEditMF *)
{
        new TEditMF(NULL);
}
//---------------------------------------------------------------------------
__fastcall TEditMF::TEditMF(TComponent* Owner)
        : TEdit(Owner)
{
}
//---------------------------------------------------------------------------
   TDateTime moDaT;
//---------------------------------------------------------------------------
AnsiString __fastcall TEditMF::GetmfDate()
{
   AnsiString mDate = DateToStr(moDaT) ;
 
   return mDate ;
}
//---------------------------------------------------------------------------
void __fastcall TEditMF::SetmfDate(AnsiString Str)
{
    moDaT = StrToDate(Str);
}
//---------------------------------------------------------------------------
namespace Editmf
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TEditMF)};
                 RegisterComponents("Samples", classes, 0);
        }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include <Masks.hpp>
#include <memory>
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton9Click(TObject *Sender)
{
 String Text= "10.10.2010";
 std::auto_ptr<TMask> Mask(new TMask("[0-9][0-9].[0-9][0-9].[0-9][0-9][0-9][0-9]") );
 if( Mask->Matches(Text) ) ShowMessage("Matched!");
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text= Date().DateString();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
if(Key!=VK_LEFT && Key!=VK_RIGHT)   Key= 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
    if(  Key>='0' && Key<='9');
     {
            int OldStart= Edit1->SelStart;
            String Text=  Edit1->Text;
            int index= Edit1->SelStart+1;
 
            if(index<=Text.Length() && Text[index]!='.')
                {
                    Text[index]= Key;
                    TDate D;
                    if( TryStrToDate(Text,D) )
                        {
                            Edit1->Text= Text;
                            Edit1->SelStart= OldStart+1;
                        }
                }
     }
    Key= 0;
}
//---------------------------------------------------------------------------