База данных и Combobox

[Hsl]

Добрый день.
Не получается соединить данные в столбце и в combobox1.
Вот что происходит..
При выборе любой из строк, в edit'ах ниже меняется информация, в зависимости от данных в строке:

Как видите, combobox не меняется.
Необходимо, чтобы получалось вот так:

Тут мне пришлось самому выбирать одну из позиций в combobox.
Вот код, который работает в остальных случаях. По аналогии, я попробовал сделать и с combobox, но, как вы видите, ничего не получилось.

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   try
    Edit1.Text:=ADOQuery1.FieldByName('name').AsString;
    Edit2.Text:=ADOQuery1.FieldByName('info').AsString;
    Edit3.Text:=IntToStr(ADOQuery1.FieldByName('cost').AsInteger);
    Edit4.Text:=ADOQuery1.FieldByName('cost_info').AsString;
    Edit5.Text:=ADOQuery1.FieldByName('info_pay').AsString;
    combobox1.Text:=ADOQuery1.FieldByName('status').AsString;
   except
    on e:Exception do
   end;
end;

По аналогии с другими edit'ами, я пробовал изменять Text на: caption, items, но происходит ошибка тут:

.AsString;

[Stilet]

В комбике уже есть список статусов? Если да то:

with combobox1 do begin
 i:=Items.IndexOf(ADOQuery1.FieldByName('status').AsString);
 if i<>-1 then ItemIndex:=i;
end;

[Hsl]

Сообщение от Stilet

В комбике уже есть список статусов? Если да то:

with combobox1 do begin
 i:=Items.IndexOf(ADOQuery1.FieldByName('status').AsString);
 if i<>-1 then ItemIndex:=i;
end;

Благодарю за помощь!

И еще с combobox..
При нажатии на кнопку добавить:

    ADOQuery1.Insert;
    ADOQuery1.FieldByName('name').AsString:=Edit1.Text;
    ADOQuery1.FieldByName('info').AsString:=Edit2.Text;
    ADOQuery1.FieldByName('cost').AsInteger:=StrToInt(Edit3.Text);
    ADOQuery1.FieldByName('cost_info').AsString:=Edit4.Text;
    ADOQuery1.FieldByName('info_pay').AsString:=Edit5.Text;
    ADOQuery1.FieldByName('status').AsString:=Combobox1.Text;
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    Edit4.Clear;
    Edit5.Clear;

̶В̶ы̶п̶о̶л̶н̶я̶е̶т̶с̶я̶ ̶э̶т̶о̶т̶ ̶к̶о̶д̶,̶ ̶т̶о̶ ̶б̶и̶ш̶ь̶ ̶о̶ч̶и̶щ̶а̶ю̶т̶с̶я̶ ̶ф̶о̶р̶м̶ы̶ ̶в̶в̶о̶д̶а̶,̶ ̶н̶о̶,̶ ̶о̶п̶я̶т̶ь̶ ̶ж̶е̶,̶ ̶c̶o̶m̶b̶o̶b̶o̶x̶ ̶о̶с̶т̶а̶е̶т̶с̶я̶ ̶в̶ ̶т̶о̶м̶ ̶п̶о̶л̶о̶ж̶е̶н̶и̶и̶,̶ ̶в̶ ̶к̶о̶т̶о̶р̶о̶м̶ ̶е̶г̶о̶ ̶п̶о̶с̶л̶е̶д̶н̶и̶й̶ ̶р̶а̶з̶ ̶и̶с̶п̶о̶л̶ь̶з̶о̶в̶а̶л̶и̶.̶

Получилось исправить самостоятельно данным кодом:

    Combobox1.ItemIndex:=-1;

[Stilet]

Получилось исправить

Респект и уважуха )