[flexterful]

Сообщение от Black Raider

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;

Для мыши тогда добавить тот же edit1.SelStart:=length(edit1.Text)+1;
в OnMouseDown() и OnMouseUp(), а OnMouseMove() избавит от "селекта"