FindNext que da error

[Tecnic2]

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.