Обработка события OnMouseDown

//---------------------------------------------------------------------------
//Нажатие на кнопку для создания очередной панели...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   static int pt = 10;
   int lt = 10;
//создание панели
   TPanel *Pnl = new TPanel(this);
   Pnl->Parent = this;
   Pnl->Top = pt;
   Pnl->Width = 250;
   Pnl->Height = 80;
   pt += Pnl->Height + 5;
   Pnl->OnMouseDown = MyPanelMouseDown;
   Pnl->OnMouseUp = MyPanelMouseUp;
//создание 2-х меток на панели
   for(int i = 1; i < 3; i++)
     {
       TLabel *Lbl = new TLabel(Pnl);
       Lbl->Parent = Pnl;
       Lbl->Top = lt;
       Lbl->Left = 10;
       Lbl->Caption = "Label" + IntToStr(i);
       lt += Lbl->Height + 5;
       Lbl->OnMouseDown = Pnl->OnMouseDown;
       Lbl->OnMouseUp = Pnl->OnMouseUp;
     }
}
//---------------------------------------------------------------------------
//Функция получения указателя на конкретную панель по которой был произведен клик
TPanel *GetPanel(TObject *Sender)
{
   if(Sender->ClassNameIs("TLabel")) return dynamic_cast<TPanel *>(((TLabel *)Sender)->Parent);
   else return dynamic_cast<TPanel *>(Sender);
}
//---------------------------------------------------------------------------
//Эти методы описаны в секции private класса формы в заголовочном файле
//---------------------------------------------------------------------------
void __fastcall TForm1::MyPanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
   GetPanel(Sender)->Caption = "LMB is down";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MyPanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
   GetPanel(Sender)->Caption = "LMB is up";
}
//---------------------------------------------------------------------------

Label1->OnMouseDown = ((TPanel *)Label1->Parent)->OnMouseDown