Autocomplete bei ComboBox und Zuweisung durch Programm

[himitsu]

Delphi-Quellcode:

ComboBox1.Text := ...;
i2 := Length(ComboBox1.Text);
for i := 0 to ComboBox1.Items.Count - 1 do
  if AnsiStartsText(ComboBox1.Text, ComboBox1.Items[i]) then
  begin
    ComboBox1.Text := ComboBox1.Items[i];
    Break;
  end;
ComboBox1.SelStart := i2;
ComboBox1.SelLength := 888;  // Length(ComboBox1.Items[i]) - i2;

soooooooo schwer isses doch garnicht?