[roman]

El parámetro Sender es el botón que genera el evento:

Código Delphi [-]
TForm1.Button1OnClick(sender: TOBject);
begin
  Showmessage((Sender as TButton).Caption) ;
end;

// Saludos