[marcoszorrilla]

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   While not query1.Eof do
   begin
   combobox1.Items.Add(query1.fields[1].asstring);
   query1.Next;
   end;
  end;

Aunque yo mejor utilizaría un DbLookUpComboBox, conectado solamente la parte del ListSource..... y me ahorraría el trabajo.

Un Saludo.