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;