Фильтрация в Combobox-е

procedure Edit1Enter(Sender: TObject);
begin
   DBLookupComboBox2.DropDown;      // открыть список    DBLookupComboBox2
     Combo_int := DBLookupComboBox2.KeyValue; // временное хранение значения комба
end;

procedure TFKarta.Edit1Change(Sender: TObject);
begin
   
    If Length(Edit1.Text) > 0 then
 
         begin
     //---------------------вот здесь оч хотелось Locate (т.е. поиск)  но он не работает с русским текстом!!! (((((((
           // поэтому все-таки фильтрацию:
                  Clientdataset.CommandText := 'SELECT Sp_UL.Kod, ........
                                     'FROM Sp_.......... +
                      'WHERE (((Left([UL_NAME],' + IntToStr(Length(Edit1.Text)) + '))="' + Trim(Edit1.Text) + '")) ' +
                                      'ORDER BY Sp_UL.UL_NAME;';    // короче тот же исходный запрос  DBLookupComboBox2а,
                                                                            // только отфильтрованный по набитым буквам.
 
                   Clientdataset.Execute;
 
                               Clientdataset.Active := false;
                                Clientdataset.Active := true;   /// обновление запроса в DBLookupComboBox 
 
 
end;

procedure TFKarta.Edit1Exit(Sender: TObject);
begin
   DBLookupComboBox2.CloseUp(true);   // закроем выпавший список    DBLookupComboBox2, а то так и останется О_О)))
end;

procedure DBLookupComboBox2Click(Sender: TObject);
begin
 
  ///
    if Length(DBLookupComboBox2.Text) > 0 then
          Edit1.Text := DBLookupComboBox2.Text;
 
 
                    Clientdataset.CommandText := 'SELECT ..... ' +   // возвращаем поисковой датасет на исходную
                         'FROM ... +                                                 // т.е. убираем с него фильтр
                              'ORDER BY Sp_UL.UL_NAME;';
 
                   Clientdataset.Execute;
 
                               DM.cdsSP_UL_poisk.Active := false;
                                 DM.cdsSP_UL_poisk.Active := true;
 
 
       if DBLookupComboBox2.KeyValue <> Combo_int then
        begin
             Combo_int := DBLookupComboBox2.KeyValue;        // получили выбраный юзером код улицы
                                                 // делаем что с ним надо
                      ....................
         end;                     
end;