замена базовых событий при создании компонентов в ВСВ 2006

#ifndef MaskEditH
#define MaskEditH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TMaskEdit : public TLabeledEdit
{
private:
    enum TMask {mkInt,mkFloat,mkDate};
    TMask FMask;
    TMask __fastcall FGetType() {return FMask;};
    void __fastcall FSetType(TMask mask) {FMask = mask;};
 
protected:
    void __fastcall KeyDown(WORD &Key, TShiftState Shift)
    {
        Key = 0;
        TLabeledEdit::KeyDown(Key,Shift);
    }
 
public:
    __property TMask Type = {read=FGetType,write=FSetType};
    __fastcall TMaskEdit(TComponent* Owner);
__published:
 
};
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
 
#pragma hdrstop
 
#include "MaskEdit.h"
 
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TMaskEdit *)
{
    new TMaskEdit(NULL);
}
//---------------------------------------------------------------------------
__fastcall TMaskEdit::TMaskEdit(TComponent* Owner)
    : TLabeledEdit(Owner)
{
}
//---------------------------------------------------------------------------
namespace Maskedit
{
    void __fastcall PACKAGE Register()
    {
        TComponentClass classes[1] = {__classid(TMaskEdit)};
        RegisterComponents("Samples", classes, 0);
    }
}
//---------------------------------------------------------------------------

DYNAMIC void __fastcall KeyDown(WORD &Key, TShiftState Shift)