Пусть для работы с БД мы используем ADO:
Код:
ADOQuery1.First;
While Not ADOQuery1.Eof Do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Field_with_name').AsString);
ADOQuery1.Next;
end;
Если надо сохранить при этом ID, то можно пользоваться примерное так:
Код:
...
ComboBox1.Items.AddObject(ADOQuery1.FieldByName('Field_with_name').AsString,TObject(ADOQuery1.FieldByName('ID').AsInteger));
...