Combobox перескакивает на первый символ

[warder49]

Доброго времени суток.
Столкнулся с проблемой при использовании combobox
Делаю через него фильтр . и при вводе следующего символа курсор перескакивает и становиться перед первым символом . Подскажите как бороться с этим ?

procedure TLogin.ComboBox2Change(Sender: TObject);
var i:integer;
strok:string;
begin
strok:='%'+ComboBox2.text+'%';
  datamodul.DataModule3.QueryBank.SQL.clear;
  datamodul.DataModule3.queryBank.SQL.Append
              (
'select * from bank WHERE UNP like' + QuotedStr(strok)
              );
      datamodul.DataModule3.QueryBank.ExecSQL();
      datamodul.DataModule3.CdsBank.Refresh;
       combobox2.items.Clear;
      datamodul.DataModule3.CDSBank.First;
   for  i := 1 to datamodul.DataModule3.CdsBank.RecordCount  do

   begin      ComboBox2.Items.Add(datamodul.DataModule3.CDSBank.FieldByName('UNP').AsString);
      datamodul.DataModule3.CDSBank.Next;
   end;

end;

[D-mon]

Код конечно ужасен. Как можно при выборе элемента Комбика удалять/добавлять элементы. Ну да ладно.
Межде предпоследним и последним "эндами" поставь

ComboBox2.SelStart := Length(ComboBox2.Text);