Попробовал повторить, получилось сначало поиск похожего по источнику, затем присвоение найденного, если что нашлось
Код:
procedure DBEdit1Change(Sender: TObject);
begin
DBLookupComboBox1.ListSource.DataSet.Locate(DBLookupComboBox1.KeyField, DBEdit1.Text,[loPartialKey]);
DBLookupComboBox1.KeyValue:= DBLookupComboBox1.ListSource.DataSet.FieldByName(DBLookupComboBox1.KeyField).Value;
end;
...
{Для проверки: DBEdit1.EditText:= 'R';}
...