Onclick en tiempo de ejecución

[chinchan]

Tengo una aplicación que en tiempo de ejecución crea unos objetos, entre ellos varios TButton (unos 100), Cuando pulso unos de ellos... ¿Cómo puedo saber cual he pulsado?. He creado el evento OnClickk:

Código PHP:

for(a=1;a<=100;a++){
  Boton[a] = new TButtonl(this);
  Boton[a]->Parent=ScrollBox1;
  Boton[a]->Tag=a;
  Boton[[a]->OnClick = botoncliqueado;
}  


void __fastcall TForm1::botoncliqueado(TObject *Sender)
{
  ShowMessage(quiero saber que botón he pulsado);
} 


En este mismo ClubDelphi he visto alguna solución similar, pero están en Delphi y no sé cómo pasarlas a C++ builder.

Por favor, ¿me podéis echar una mano?. Sé que estoy cerca, pero no lo acabo de ver.

Gracias