Странное поведение TDBLookupComboBox

[megachuhancer]

Здравствуйте. Столкнулся с такой проблемой.

Нужно программно выбрать один из item'ов из TDBLookupComboBox.
Я это попытался сделать таким способом:

...
(FWinControls[i] as TDBLookupComboBox).KeyValue := FFieldsPair.Field1.Key;
...

Ну, просто присвоив значение св-ву KeyValue.
Собственно форма, на которой находятся комбобоксы, предназначена для добавления одной записи в базу данных. В принципе, при ручном выборе значения из комбобокса, всё хорошо работает. Если же установить программно, то новая запись не добавляется, хотя этот код отрабатывает вроде без исключений:

procedure TfrmCustomCard.btnOKClick(Sender: TObject);
begin
  if not CheckControls then begin
    ShowMessage('Все поля должны быть заполнены');
    Exit;
  end;
  IBDataSet.Post;
  MyDataModule.IBTransaction.Commit;
  FRefreshAllProc;
  Close;
end;

В чём может быть причина?