Delphi - Evento

tengo dos botones (button1 y button2) a los cuales les asigne un mismo evento a ambos: ButtonClick

Como hago para que en el procedimento TForm1.ButtonClick(Sender: TObject) pueda diferenciar si se trata del button1 o button2? Debe ser utilizando Sender, pero no se como.

Gracias.

Prueba esto
procedure TForm1.BotonClick(sender:TObject);
begin
if (sender is TButton) then
with (sender as TButton) do
begin
if (sender as Tbutton).Name='Button1' then
showmessage('1')
else
if (sender as Tbutton).Name='Button2' then
showmessage('2')
end;
end;
Suerte

Ya se que sobran asignacines pero las he puesto todas para ser mas explicito