FindNext que da error
 

Hola a todos,

En mi aplicacion necesito filtrar un grupo de registros dentro de una tabla a través de su código, utilizo para éllo el método Filter. Una vez filtrado voy avanzando el grupo de registros resultante hasta llegar al final y salir del bucle.
Mi problema es que al hacer el ultimo FindNext me da error diciendo que no puede ejecutar ésta funcion porque se encuentra al final del grupo de registros, y no entiendo el porque.
Aqui teneis mi código:

ADOTabla.Filtered := False;
ADOTabla.Filter := 'codart = ' + QuotedStr(Codigo);
ADOTabla.Filtered := True;
ADOTabla.FindFirst;
while (not ADOTabla.Eof) do
begin
// AQUI HAGO ACUMULO DATOS
ADOTaulaCompres.FindNext;
end;

Gracias por adelantado.

Sigue sin funcionar
 

Me da el error igual.
Dos apuntes:
1- El error es: "Record not found".
Cosa lógica porque no hay ninguno mas.
2- El codigo tiene que ser: ADOTabla.FindNext, y no ADOTaulaCompres.

Alguna sugeencia mas?

El error es típico de los componentes ADO, si ya tienes una clave única definida, piensa en descargarte la versión correspondiente de las MDAC.

Un Saludo.