[[xEsk]]

Hola, otra forma de hacer lo mismo, nunca está de más conocer formas alternativas:

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

Saludos