Delphi - QUERY.CLOSE

Hola a tod@s!!!

Chicos, tengo un problema y por más vueltas que le doy no se que puede estar pasando, os comento:

Realizo una consulta, que la añado a una query, la cual abro, y si no está vacia itero sobre ella hasta llegar al final. Una vez alcanzado el final la cierro. Pues me da error al cerrar la query. Os pongo el codigo (es bastante corto):

query.sql.clear;
query.sql.add(CONSULTASQL);
query.open;

if not (query.eof) then
begin
query.first;
while not (query.eof) do
begin
var := query.fieldByName('cojo un resultado de la consulta');
query.next;
end;
end;
query.close ; <---ERROR!

Estoy muy extrañado. ¿Puede ser que el bucle while mantenga agarrada a la query y no me deje cerrarla? ¿como puedo cerrar la query, o liberarla de alguna forma?
Si no cierro la query el programa me echa (típico error acces violation) en el siguiente acceso a es query o a cualquier otra.

A VER SI ME PODEIS ECHAR UN CABLE. MIL GRACIAS A TODOS!!!

Salud

Me parece que la primera condicion, aunque de repente puede funcionar, no creo que sea la mejor opcion:
if not (query.eof) then
begin
...
Mejor es:
if not query.IsEmpty then
begin
...
Por que Eof en realidad va a verificar si es fin de archivo, es decir sino existen mas registros en la cola, y eso no va a ocurrir si recien abres tu consulta, pero capaz y funcione, pero no es la forma, por lo demas tambien suelo usar ese tipo de codificacion para algunas consultas y siempre me funciona super, no veo que nada estee mal, cual es el error que te salta??

Hola Juancho, Muchas gracias por tu atencion y por tu ayuda.

He realizado el cambio que me has comentado (he sustuido query.eof por query.isEmpty) y lamentablemente el error sigue ocurriendo. Lo peor es que ocurre de forma aleatoria, hay veces que lo hace bien, veces que no.... es algo muy raro y no se si a alguien le habrá pasado alguna vez.

El error que me devuelve Delphi es del tipo:

"proyeco.exe raised exception class EAccessViolation with message 'Access violation at addres 4BE3466C in module 'IDAPI32.DLL'. Write of address 0000000008'. Process stopped."

Muchas gracias a todos y por favor....alguien sabe algo???.

Saludos!!

Estimado pudiste resolver el problema?

a mi me da el mismo error al hacer un tquery.close;

Hola, Juan, yo lo hago continuamente pero le haria un pequeño cambio, si me permites..
Le saco el IF.

query.sql.clear;
query.sql.add(CONSULTASQL);
query.open;

query.first;
while not (query.eof) do
begin
var := query.fieldByName('cojo un resultado de la consulta');
query.next;
end;
query.close ;

Fijate si asi te da error..

Saludos