Hallo,
mal eine kleine Frage, warum willst Du den String mit SetLength kürzen.
Du könntest auch die Prozedur delete nehmen.
Zitat von
DelphiHilfe:
procedure Delete(var S: string; Index, Count:Integer);
Description
Delete removes a substring of Count characters from string S starting with S[Index]. S is a string-type variable. Index and Count are integer-type expressions.
If index is larger than the length of the S or less than 1, no characters are deleted.
If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than 0, no characters are deleted.
Grüße
Klaus