Как программно выбрать строку в Combobox

[lutdan]

Здравствуйте! Возникла проблема: При нажатии на кнопку "ИЗМЕНИТЬ" можно изменить записи в ADOTable, но проблема в том что мне необходимо , что бы в Combobox'е выводилась нужная запись из столбца ТИПСКЛАДА.
Пробовал реализовывать так:

procedure TForm8.BitBtn3Click(Sender: TObject);
var
i: integer;
begin
 if (DBEdit15.Text='КС') then i:=1;
 if (DBEdit15.Text='ОС') then i:=2;
 if (DBEdit15.Text='ЗД') then i:=2;
Combobox1.ItemIndex:= i;

Но нужный Item не выбирается!

На другой форме аналогичная проблема, только мне там уже нужно выбрать программно запись из DBLookupComboBox1.
Реализовывал так:

DataModule4.EDVES1.Locate('Naimenovanie',sDBEdit10.Text,[]);

EDVES1 - Таблица1, где хранятся просто наименования ЕДиНИЦ ИЗМЕРЕНИЯ (КГ, т и т.д.);
sDBEdit10.Text - Единица измерения в Таблице 2.Создал этот эдит для того чтобы выбрать программно запись в DBLookupComboBox1 т.к. Таблицы не связаны .

СПАСИБО ЗА ВАШИ ОТВЕТЫ!

[Stilet]

Но нужный Item не выбирается!

Протрассируй по шагам эту процедуру. Точно в ДБЭдитах те значения? Наполнен ли ЛистБокс нужными элементами?

т.к. Таблицы не связаны .

Связать большая проблема?

[lutdan]

Заработало. Странно почему раньше не хотело. Тему можно закрыть.

 if (sDBEdit15.Text='КС') then  begin
  sCombobox1.ItemIndex:= 0;
 end;
  if (sDBEdit15.Text='ОС') then begin
     sCombobox1.ItemIndex:= 1;
    end;
  if (sDBEdit15.Text='ЗД') then begin
     sCombobox1.ItemIndex:= 2;
   end;