[hecospina]

Hola
Leyendo un poco encontre la solución

Código Delphi [-]
begin
  while not Query1.eof do
  begin
    combobox1.items.add(Query1.fieldByName( 'Codigo').asString;
    Query1.next;
  end;
end;