die letzten 9 Zeichen in einem Memo löschen

[mkinzler]

Memo1.Text := Copy( Memo1.Text, 1, Length( Memo1.Text)-9);