[1450]

Код:

procedure TAdd_Disks.FormCreate(Sender: TObject);
begin
  ADOQuery2.Active := False;
  {указываем таблицу и поле, откуда брать значения}
  ADOQuery2.SQL.Text:='Select distinct PartNum from Disks';
  ADOQuery2.Active := True;
    while not (ADOQuery2.eof) do begin
      dbcombobox1.items.add(ADOQuery2.fieldbyname('PartNum').asstring);
      ADOQuery2.next;
    end;
end;

Как вариант заполнения DBComboBox