//--header---//
private:	// User declarations
    TButton*   btn;  //кнопка
    void __fastcall ClickMe(TObject* Sender); //обработчик события 

//--cpp--//
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
/*создаем кнопку*/
btn=new TButton(this);
btn->Parent=this;
btn->Visible=true;
btn->Caption="123";

btn->OnClick=ClickMe; 
}
//-------------------------//
void __fastcall TForm1::ClickMe(TObject* Sender)
{
   ShowMessage("Hello World");
 }

ShowMessage("Hello World");