[[Caral]]

Hola
Y asi:

Código Delphi [-]
Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active   := True;
recs := Query1.MaxRecords;// esto no se para que lo usas?
WHile not Query1.Eof Do
Begin
    Combo.Items.Add(Query1.Fields[0].asstring);
     Query1.Next;
end;

No entiendo la necesidad de repetir el Eof dos veces, tampoco por que usar FindNext.
Bueno, pruebalo, tal vez sirva.
Saludos