Снять выделение с ComboBox

[nemaster21]

ComboBox заполняется списком городов по первым введённым в него буквам, но проблема в том, что при этом в нём выделяется весь текст,
который, соответственно, удаляется при нажатии второй клавиши.
Например: нужно найти города на "Ха". Набираем "Х" -> в combobox появляется первый город на "Х", в виде выделенной строки. При наборе второй буквы "а" всё удаляется и остаётся только буква "а", по которой и заполняется список.
Помогите,плииз, как избавиться от выделения при внесении первой буквы.

[D-mon]

Код можно посмотреть, помоему ты там что то намутил...

А можно весь код пасника или это тайна???

[nemaster21]

Да код стандартный. Есть dll,база данных городов и функция выцепляющая города из базы в виде текстовых строк с разделителем в виде ";".
T:=Copy(s,1,Pos(';',s)-1);
Form1.ComboBox2.Items.Add(T);

Цикл выборки и заполнения стоит на TForm1.ComboBox2Change.
S - строка из базы.
Т- название города.

[D-mon]

А можно весь код пасника или это тайна???

[Stilet]

nemaster21, уж ни так ли ты хочешь?:

var    s:string;
..............
implementation
......................
procedure TForm1.FormCreate(Sender: TObject);
begin
s:=combobox1.items.Text;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:integer;
begin
if ComboBox1.Text='' then ComboBox1.Items.Text:=s;
for i:=ComboBox1.Items.Count-1 downto 0 do
 if copy(ComboBox1.Items[i],1,length(ComboBox1.Text)-1)<>
    copy(ComboBox1.text,1,length(ComboBox1.Text)-1)
  then ComboBox1.Items.Delete(i);
end;

[nemaster21]

Спасибо, разобрался.
У меня в конце процедуры стояло
ComboBox2.DroppedDown := True;
чтобы список открывался автоматом.
Если это закомментить, то ничего не выделяется.
А как программно открывать combobox, чтобы он открывался
полностью, а не только первая строчка списка?