[ecfisa]

Hola viveba.

Te pongo dos formas en que podes hacerlo.
1:

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

  TButton *tb = static_cast<TButton*>(Sender);
  switch (tb->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;
    ...
  }
}

2:

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;
    ...
  }
}

Saludos.