Evento onClick

[jzk]

Hola a tod@s,

Tengo en una aplicación tres botones distintos que basicamente tienen que hacer lo mismo. Lo que he decidido es escribir en el Boton1 el código que necesito (en el evento OnClick) y los otros dos redirigir su correspodiente evento onClick al del boton1.

Cuando dije que básicamente tienen que hacer lo mismo era porque en cada uno de ellos hay una pequeña excepción, por lo que pretendo saber cual de ellos ha sido pulsado una vez este dentro del evento OnClick.

Es posible tal hazaña y de ser así de que manera puede hacerse???

Procedure TForm1.Boton1Click(Sender: TObject);
Begin
	  query1.Insert;
	  showmessage('hola');
End;