Переопределение обработчиков событий при создании компонента

// файл *.h
class PACKAGE TMyLabeledEdit : public TLabeledEdit
{
private:
    bool FMyOnlyNumbers;
protected:
    DYNAMIC void __fastcall KeyPress(System::WideChar &Key);
public:
    __fastcall TMyLabeledEdit(TComponent* Owner);
__published:
    __property bool MyOnlyNumbers = {read=FMyOnlyNumbers, write=FMyOnlyNumbers, default=true};
};
 
// файл *.cpp
static inline void ValidCtrCheck(TMyLabeledEdit *)
{
    new TMyLabeledEdit(NULL);
}
//---------------------------------------------------------------------------
__fastcall TMyLabeledEdit::TMyLabeledEdit(TComponent* Owner)
    : TLabeledEdit(Owner)
{
    FMyOnlyNumbers = false;
}
//---------------------------------------------------------------------------
namespace Mylabelededit
{
    void __fastcall PACKAGE Register()
    {
        TComponentClass classes[1] = {__classid(TMyLabeledEdit)};
        RegisterComponents(L"Мои компоненты", classes, 0);
    }
}
//---------------------------------------------------------------------------
void __fastcall TMyLabeledEdit::KeyPress(System::WideChar &Key)
{
    if (FMyOnlyNumbers)
    {
        if ((Key >= '0') && (Key <= '9'))
        {
            return;
        }
        Key = 0;
    }
}

TLabeledEdit::KeyPress(Key);