Hola,
sólo quiero comentar que también puedes asignarle valores distintos a la propiedad Tag de cada botón,
con lo que ahorrarás líneas de código.
Ejemplo suponiendo que los botones son TButton:
Código Delphi
[-]
procedure TForm1.Boton1Click(Sender: TObject);
begin
case (Sender as TButton).Tag of
1: query1.Insert;
2: query2.Insert;
3: query3.Insert;
end;
showmessage(IntToStr((Sender as TButton).Tag));
end;
Salu2.