[yuoras]

Есть таблица , имеет два столбца
Нужно при выборе определенного значения combobox, подтягивать значение в DBEdit из этой же таблицы
То есть , combobox видит значения из scnazva и в DBEdit должно выводиться
значение fraza

Пример таблицы katalog
id scnazva fraza
1 Работа Пекарь
2 Машина Железо
3 Телевизор Изображение

Выбираю в combobox "Работа" в DBEdit должно быть "Пекарь"
Выбираю в combobox "Телевизор" в DBEdit должно быть "Изображение"

Код:

procedure Tnewabon.DBComboBoxEh2DropDown(Sender: TObject);
var ADOQuery1: TADOQuery;
begin
ADOQuery1 := TADOQuery.Create(self);
ADOQuery1.Connection := form2.Smart;
  with   ADOQuery1 do
begin
     ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('select scnazva, fraza from katalog');
     ADOQuery1.Open;
end;

 DBComboBoxEh2.Items.Clear ;
  while not  ADOQuery1.Eof do
  begin
    DBComboBoxEh2.Items.Add(ADOQuery1.Fields[0].AsString);
    ADOQuery1.Next;
  end;

  ADOQuery1.Free;
end;

Что сюда нужно добавить ?
Заранее благодарен