Problema con TADOQuery

[Nomad]

Estoy usando un TADOQUERY para hacer una consulta a una DB en SQL Server...

Código Delphi [-]
Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active   := True;
recs := Query1.MaxRecords;
WHile not Query1.Eof Do
Begin
    Combo.Items.Add(Query1.Fields[0].asstring);
    if not Query1.Eof then
       Query1.FindNext;
end; // fin del While

Resulta que siempre he usado el Query1.FindNext, pero ahora me da un error, cuando llega al final de los registros. Por eso utilizo el Query1.EOF, pero aun asi me da el error.

Alguna idea?

Gracias de antemano...