Llamar procedure con TStringList

[manelb]

Fijate en el siguiente código....

En él tengo dos botones conectados al mismo evento de forma que llaman al mismo procedimiento, reconociendo este de que botón procede la llamada.

Código Delphi [-]
implementation

{$R *.dfm}

procedure TForm2.ButtonClick(Sender: TObject);
begin
  lista(sender);
end;

procedure TForm2.lista(sender: TObject);
begin

  if sender=Button1 then
  begin
    showmessage(TButton(sender).caption);
  end
  else begin
    showmessage(TButton(sender).caption);
  end;
end;