А вот вариант на OnKeyDown-Up работает!
P.S. С мышью я уже сам разобрался:
Код:
procedure TForm1.EditClick(Sender: TObject);
begin
if Edit.SelStart <> length(Edit.Text) then Edit.SelStart := length(Edit.Text);
end;
И понадобилось всего-то событие OnClick...