var
str:
string
;
begin
str :=
'abcdefghigklmn'
;
Delete(str,Length(str)-
4
,
5
);
ShowMessage(str);
end
;