在Unit1.h里加上：
private:    // User declarations
        void __fastcall MyButtonClick(TObject *Sender);//动态按钮单击事件处理函数

然后在Unit1.cpp里加上如下代码（这里假设单击Button1出现MyButton）：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton *MyButton=new TButton(Form1);
MyButton->Parent=Form1;
MyButton->Caption="新按钮";
MyButton->OnClick=MyButtonClick;
}
//---------------------------------------------------------------------------
void   _fastcall   TForm1::MyButtonClick(TObject  *Sender)
{
  ShowMessage("万事大吉！");
}