Задать позицию каретки в ComboBox

[Shouldercannon]

Как при таком способе ввода текста в ComboBox

ComboBox1.Text := ComboBox1.Text + '*.*';

перевести каретку в конец текста? По умолчанию она всё время переводится в начало текста.

[Аватар]

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ComboBox1.Text:=ComboBox1.Text+'*.*';
  ComboBox1.SelStart:=Length(ComboBox1.Text);
end;