crear y pulsar boton modo ejecucion

[ecfisa]

Hola chinchan.

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.