Переопределение OnChange в производном классе

class TMySpinEdit : public TSpinEdit {
    private:
 
    protected:
    
    public:
        AnsiString VariableName;
        AnsiString RectangleName;
        AnsiString Name;
        AnsiString Var;
        void __fastcall onChange();                           //переопределяю OnChange
 
        TMySpinEdit() : TSpinEdit(Application) {};           
        //~TMySpinEdit();
};

class TMySpinEdit : public TSpinEdit {
    private:
 
    protected:
        DYNAMIC void __fastcall Change(void);
    public:
        AnsiString VariableName;
        AnsiString RectangleName;
        AnsiString Name;
        AnsiString Var;
 
        __fastcall virtual TMySpinEdit(Classes::TComponent* AOwner)
            : Vcl::Samples::Spin::TSpinEdit(AOwner)
        {
        }
};

//Реализация
void __fastcall TMySpinEdit::Change() {
    nbSetVar(Var.c_str(), AnsiString(Value).c_str());
}
//-----
    
    
//Создаю
TMySpinEdit *Spinner = new TMySpinEdit(NULL);
Spinner->ParentWindow = RectangleHandle;                           
AnsiString SpinnerName = "Spinner" + AnsiString(Params[0]);        
Spinner->Name = SpinnerName;                                  
Spinner->RectangleName = AnsiString(Params[0]);
Spinner->Var = AnsiString(Params[1]);
 
//Это теперь не нужно
//TMethod Method;                                                      
//Method.Code = TMySpinEdit::Change;                                           
//Method.Data = Spinner;                                       
//Spinner->OnChange = (TNotifyEvent*)&Method;

const WM_NOTIFYPLUGINOBJECT  = WM_USER + 250;
 
void TNeoSpinEdit::WMNotifyPlugIn(TMessage Msg) {
    TRect R;
    switch(Msg.lParam) {
        case 1 : break;                                     //покинул страницу
        case 2 : break;                                     //вошел на страницу
        case 3 : break;                                     //выход из режима Run
        case 4 : {                                          //размер основного прямоугольного объекта был изменен, поэтому отрегулируйте управление вращением, чтобы оно соответствовало
          Windows.GetClientRect( ParentWindow, R );
          SetWindowPos(Handle, 0, 0, 0, R.Right - R.Left, R.Bottom - R.Top, SWP_SHOWWINDOW);
        }
        case 5 : if (Msg.wParam != 0) {                     //Управление рисованием на DC — используется командой PrintPage }
          PaintTo(Msg.wParam, 0, 0);
        case 6 : Msg.Result = 0;                            //Tab Stop - да, мы хотим его
        case 7 : Enabled = false;                           //Приемник Rectangle отключен
        case 8 : Enabled = true;                            //Приемник Rectangle включен
    }
}

const int WM_NOTIFYPLUGINOBJECT = WM_USER + 250;
 
    class TMySpinEdit : public Vcl::Samples::Spin::TSpinEdit
    {
    // ...
    private:
        MESSAGE void __fastcall WMNotifyPlugIn( TMessage &Message )
        {
            // ... тут код метода
        }
 
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(WM_NOTIFYPLUGINOBJECT, TMessage, WMNotifyPlugIn);
        END_MESSAGE_MAP(Vcl::Samples::Spin::TSpinEdit)
 
    public:
    // ...
};

::GetClientRect(ParentWindow, &R); // Я вообще всё, что из Windows.h пишу с ::