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