Как в TEdit переместить коретку в конец текста

[GodDog]

У меня следующий код, не позволяющий вводить в строку первым символом пробел, а так же исключающий из строки ' '(2 пробела и более)

Код: Выделить всё

procedure TForm1.Zenzura(e: TEdit);
begin
 e.Text:=TrimLeft(e.Text);
 while not(e.Text=StringReplace(e.Text, '  ', ' ',[rfReplaceAll])) do
   e.Text:=StringReplace(e.Text, '  ', ' ',[rfReplaceAll]);
end;                                                                          

Проблема в том что каретка встает в начало введенной строки, а мне бы надо чтобы она оставалась в конце строки.

[GodDog]

Извините за глупые вопросы - кареткой управляет свойство SelStert