Evento onClick

[Trigger]

Saludos

Me imagino que en los eventos de Boton2 y Boton3 de onclick, le asignas boton1.onclick, bueno entonces tienes que hacer lo siguiente

procedure TForm1.Boton1Click(Sender: TObject);
begin
  if Sender = Boton1 then
  begin	  
    query1.Insert;
    showmessage('1');
  end;
  if Sender = Boton2 then
  begin	  
    query2.Insert;
    showmessage('2');
  end;
  if Sender = Boton3 then
  begin	  
    query3.Insert;
    showmessage('3');
  end;

end;

Tambien puedes declarar un evento general no necesariamente tiene que estar asociado a ningun objeto, y se lo puedes asignar a los tres botones

OK