[defcon1_es]

Hola.
Esto es redundante:

Código Delphi [-]
Query2.ExecSQL; //Puedes quitar esta línea de código
Query2.Active:=True;