[jam888]

Que tal gente del foro? Les cuento que he pasado largas horas tratando de solucionar esto y no pasa nada.
Lo que estoy haciendo es una consulta y luego pasar los datos a un archivo .txt ,realizo lo siguiente:
begin
realizo la consulta

Código Delphi [-]
 if not Consulta.IsEmpty then
 begin
         AssignFile(F,'Archivo_Prueba.txt');
         Rewrite(F); 
         while not consulta.eof do
          // cargo de a un registro en la variable (cadena)
          Writeln(F,cadena);
              if not consulta.eof then
               consulta.Next;
         end;
         closefile(f);
end;

las variables estan definidas (obvio)y la consulta me trae 3 registros, los graba pero me da este error

PROJECT PEXPORT.EXE RAISED EXCEPTION CLASS EOLEEXCEPTION WHIT MESSAGE 'either bof or eof is true, or the current record has been deleted . requested operation requires a current record'.Process Stoped.Use step or run to continue.

El programa se detiene y no me deja continuar ¿Podrian explicarme que es ese error?
Estoy trabajando con Delphi 5 y componentes Ado.
Desde ya Gracias y Un Abrazo.