Обработка сообщений в своей компоненте

void __fastcall Tclassname::MouseUp    (TMouseButton Button, Classes::TShiftState Shift, int X, int Y)
{
  /*if ( OnMouseUp != NULL ) OnMouseUp ( this, Button, Shift, X, Y );*/
   TControl::MouseUp    (Button, Shift, X, Y);
}

DYNAMIC void __fastcall DoEnter    (void);
DYNAMIC void __fastcall DoExit     (void);

void __fastcall Tmyclass::DoEnter    (void)
{
   if ( OnEnter != NULL ) OnEnter ( this );

  или здесь что-то другое нужно?
}

void __fastcall Tmyclass::DoExit     (void)
{
  if ( OnExit != NULL ) OnExit ( this );

  или здесь что-то другое нужно?
}

private:

bool FFocused;
HIDESBASE MESSAGE void __fastcall WMSetFocus  (Messages::TWMSetFocus &Message);  //
HIDESBASE MESSAGE void __fastcall WMKillFocus (Messages::TWMKillFocus &Message); //

public:
virtual void __fastcall Paint(void);

void __fastcall Tmyclass::WMSetFocus(Messages::TWMSetFocus &Message)
{
  FFocused = true;
  Repaint();
}

void __fastcall Tmyclass::WMKillFocus(Messages::TWMKillFocus &Message)
{
  FFocused = false;
  Repaint();
}

в методе рисования пытаюсь учесть "фокус"
void __fastcall Tmyclass::Paint()
{
  TRect R = ClientRect;

  pCanvas->Brush->Color = clLime;
  pCanvas->FillRect(R);
  pCanvas->TextOut( 10, 10, "exit" );

  if (FFocused)
    {
      pCanvas->Brush->Color = clRed;
      pCanvas->FillRect(R);
      pCanvas->TextOut( 10, 20, "enter" );
      pCanvas->DrawFocusRect(R);
    }
}

[hpp-file] // указаны только добавляемые поля

class TMyCustomControl : public TCustomControl
{
protected:
  TNotifyEvent FOnGetFocus;
  TNotifyEvent FOnLostFocus;
  MESSAGE void __fastcall WMSetFocus (TWMSetFocus &Message);
  MESSAGE void __fastcall WMKillFocus (TWMKillFocus &Message);
  // как вариант покороче - без cpp части
  // MESSAGE void __fastcall WMSetFocus (TWMSetFocus &Message) { if (FOnGetFocus) FOnGetFocus(this); };
  // MESSAGE void __fastcall WMKillFocus (TWMKillFocus &Message) { if (FOnLostFocus) FOnLostFocus(this); };

public:
  __published:
    __property TNotifyEvent OnGetFocus = {read=FOnGetFocus, write=FOnGetFocus};
    __property TNotifyEvent OnLostFocus = {read=FOnLostFocus, write=FOnLostFocus};

// собственно, "заказ сообщений"
#pragma warn -inl
  BEGIN_MESSAGE_MAP
    VCL_MESSAGE_HANDLER(WM_SETFOCUS, TWMSetFocus, WMSetFocus);
    VCL_MESSAGE_HANDLER(WM_KILLFOCUS, TWMKillFocus, WMKillFocus);
  END_MESSAGE_MAP (TCustomControl);
#pragma warn .inl
};

[cpp-file]

MESSAGE void __fastcall TMyCustomControl::WMSetFocus (TWMSetFocus &Message)
{
if (FOnGetFocus) FOnGetFocus(this);
}
//---------------------------------------------------------------------------

MESSAGE void __fastcall TMyCustomControl::WMKillFocus (TWMKillFocus &Message)
{
if (FOnLostFocus) FOnLostFocus(this);
}
//---------------------------------------------------------------------------