TCombobox Text deselektieren nach SetFocus

[Klaus01]

.. so tut es bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.SetFocus;
  ComboBox1.SelStart := 0;
  ComboBox1.SelLength := 0;
end;

Grüße
Klaus