delphi 去除右边指定字符

var

  str:string;

begin

  str := 'abcdefghigklmn';

  Delete(str,Length(str)-4,5);

  ShowMessage(str);

end;