Tratamiento de Errores

[vtdeleon]

Saludos

Esta condicion se llega a cumplir?:

Código Delphi [-]
 If Not Form1.ADOQueryP.Prepared Then

Corre tu aplicacion con F7 y prueba linea por linea.

[ContraVeneno]

yo utilizaría active en lugar de prepared

Código Delphi [-]
with Form1.ADOQueryP do begin
If active then close;
Parameter.Clear; 
SQL.Clear.....
....
Open;
 
end; //with