Query no funciona... ¡A veces!

[Angel.Matilla]

Perdón; tenéis razón:

Código SQL [-]
Query->Close(); Query->SQL->Add("SELECT * FROM Ls01 A, Auxiliar C 
WHERE A.CodPrv = :CodPrv AND A.Situacion IN (0, 1, 2) AND A.Junta = C.Valor AND C.Tipo = 2
ORDER BY NomJun, Apellidos, Nombre, Referencia");
Query->ParamByName("CodPrv")->AsInteger = nCodPrv;
Query->Open();

Así está puesto en el programa. CodPrv es un entero sin signo y está bien definido (en este caso el valor es 45 porque es el código de Toledo) y Query es un TIBQuery asociado a la base de datos Firebird, lógicamente.