crear y pulsar boton modo ejecucion

[chinchan]

Hola a todos. Me he atascado en lo siguiente:
Quiero crear uno boton en modo ejecución y una vez creado, necesito que genere una acción cuando es pulsado.
El botón lo genero así:

TButton *boton = new TButton(this);

¿Cómo le digo que muestre, por ejemplo un ShowMessage("HOLA"); cuando es pulsado este boton creado en modo ejecución?

Muchas gracias

[Casimiro Notevi]

Pues asignándole también el evento correspondiente, se ha tratado ese tema multitud de veces, aquí, por ejemplo.

[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.

[chinchan]

Muchas Gracias.
No había contemplado lo de
bt->OnClick = ButtonRTimeClick; /* Asignar el evento */

Ahora ya va.