[[Caral]]

Hola
Y crees que haga falta con el eof?
No crees que este recorre la tabla desde el principio?
No se, Pregunto?.
Lo que hace es rellenar un combobox, curiosamente llama a dos campos, pero solo usa uno en el combo, por que?, ni idea, el sabrá.
En tal caso si afinamos mas seria algo 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.Fields[1].asstring) ;
     Query1.Next;
end;

Maestro que te parece, he aprendido algo?
Saludos