Hola, Caral te falto una linea para estar mas seguros:
Código Delphi
[-]Query1.SQL.Text := 'Select IdDepartamento,Departamento from Departamentos';
Query1.Active := True;
recs := Query1.MaxRecords;Query1.First;
WHile not Query1.Eof Do
Begin
Combo.Items.Add(Query1.Fields[0].asstring);
Query1.Next;
end;
Saludos.