Delphi - 2 objetos mismo método

Hola solicito su ayuda para lo siguiente:
Tengo 2 botones, al dar clic sobre cualquiera de ellos se ejecuta el mismo método, el metodo resive el sender, dependiendo de cual boton se presiono mostrara un mensaje, ¿como le hago para distinguir entre los dos botones dentro del método?
Gracias por su ayuda

prueba esto

if (Sender as TButton).Name = 'Button1' then begin
//hacer algo
end else begin
//hacer otra cosa
end;

Muchas gracias