Обработка событий кнопок Button

    for(int i = 1; i <= 11; i++)
    {
        TButton *a = new TButton(Form21);
        a->Parent = Form21;
        a->Caption = IntToStr(i);
        a->Left = 10;
        a->Top = i * 30;
    }

a->Click = function;

TNotifyEvent func(int a)
{
    ShowMessage(a);
}
 
void __fastcall TForm21::FormCreate(TObject *Sender)
{
    for(int i = 1; i <= 11; i++)
    {
        TButton *a = new TButton(Form21);
        a->Parent = Form21;
        a->Caption = IntToStr(i);
        a->Left = 10;
        a->Top = i * 30;
        a->OnClick = (TNotifyEvent)func(i);
    }
}

//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for ( int i = 0; i < 10; ++i )
    {
      But_tonN[i] = new TButton(this);
      But_tonN[i]->Parent = Form1;
      But_tonN[i]->Caption = "But_ton"  + IntToStr(i);
      But_tonN[i]->Tag = i ;
      
      But_tonN[i]->OnMouseDown = But_tonNMouseDown;
 
      But_tonN[i]->ShowHint = true;
      But_tonN[i]->Hint = "hint for " + But_tonN[i]->Caption;
 
      But_tonN[i]->Left = 20;
      But_tonN[i]->Top = 10 + i * (33 + 10);
      But_tonN[i]->Height = 33;
      But_tonN[i]->Width = 150;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::But_tonNMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    TButton* nBtn;
    nBtn = (TButton*)Sender;
 
    if ( Button == mbLeft )
    nBtn->Left -= 24;
 
    if ( Button == mbRight )
    nBtn->Left += 24;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete [] But_tonN;
}
//---------------------------------------------------------------------------

private:
    TButton *But_tonN[10];
    void __fastcall But_tonNMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);