Evento onClick

[defcon1_es]

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.