Hola chinchan.
Código:
void __fastcall TForm1::ButtonRTimeClick(TObject *Sender)
{
ShowMessage("ButtonRTime fué presionado");
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TButton *bt = new TButton(this);
bt->Name = "ButtonRTime";
bt->Caption = "Nuevo btn";
bt->Left = 50;
bt->Top = 200;
bt->OnClick = ButtonRTimeClick; /* Asignar el evento */
bt->Parent = this;
}
Saludos.
Edito: Disculpas Casimiro
, no estaba tu mensaje cuando empecé con este.