Delete(var S: string; Index, Count:Integer)

Delete removes a substring of Count characters from string S starting with S[Index].  

a="testtexttext"

Delete(a,4,4)