Вечер добрый всем.
SQL->Delphi.
Нужно загрузить в свойство Items компонента DBComboBox содержание столбца "Марка",чтобы получился динамический ComboBox.При каждом открытии чтоб он делал апдейт свойству Items.
Через компонент DataSet делаю выборку с условием столбца из базы,компонентом DataSourse подсоединяю к DBComboBox.

procedure TForm1.DBComboBox1Click(Sender: TObject);
var
i: Integer;
begin
With MD.DataSet2 do begin
Active:=False;
CommandText:='Select Distinct Marka From Avto';
Active:=True;
begin
DBComboBox1.Items.Clear;
for i := 0 to MD.DataSet2.FieldCount - 1 do
DBComboBox1.Items.Add(MD.DataSet2.Fields .FieldName);
end;
end;
end;
end.

Что у меня не правильно?Что-то делаю не так.

Не плохо.Однако хотелось бы научиться работать сначала со стандартными компонентами.Или где почитать можно.

А почему может отображаться только одна запись из таблицы в ComboBox?