Ad hoc fällt mir da jetzt nur soetwas ein
Delphi-Quellcode:
procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo1.Text := TrimRight(Memo1.Text);
Memo1.SelStart := Length(Memo1.Text);
end;
Edit: Ist nur ein Denkansatz. Funktioniert in der Praxis wohl nicht, es sei denn, Du willst ohne Leerzeichen oder Zeilenumbrüche schreiben