Saludos
Me imagino que en los eventos de Boton2 y Boton3 de onclick, le asignas boton1.onclick, bueno entonces tienes que hacer lo siguiente
Código:
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