动态生成的 Button 怎么实现它的 OnClick 事件???

[metyph]

各位大虾们呀!!!请问:我动态生成的 Button 怎么才能实现它的 OnClick 事件???

[metyph]

各位大虾,没有多少时间啊,,快帮帮我啊~~~~

[metyph]

没人回答我顶!~~~~~~~~~~~~~~~~

[magicsnake]

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->OnClick = Button2Click;
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
ShowMessage("OK");
}