Usar Sender

[viveba]

Ya está, ya encontré la forma de hacerlo, pongo lo que hice por si a alguien más le interesa.

void __fastcall TForm1::ButtonClick(TObject *Sender) {

switch(((TButton*)Sender)->Tag) {
case 1: ShowMessage("Pulsó el boton 1"); break;
case 2: ShowMessage("Pulsó el boton 2"); break;
case 3: ShowMessage("Pulsó el boton 3"); break;
}
}

Gracias igual.