sortierte Listen manipulieren

[zeras]

Ich habe folgende Funktion, um Strings in Stringlisten zu kürzen.
Dabei kommt folgende Fehlermeldung: "Operation für sortierte Listen nicht zulässig".
Wie kann ich trotzdem die Listeneinträge manipulieren?

Delphi-Quellcode:

const
  SOIdLen = 8;

var
  i : Integer;
  s : String;
  len : Integer;


begin
  if SLSONumber.Count > 0 then begin
    for I := 0 to SLSONumber.Count -1 do begin
      s := SLSONumber[i];
       len := length(s);
       if len > SOIdLen then begin
         Delete(s, 9, len - SOIdLen);
         SLSONumber[i] := s;
       end;
    end;
  end;
end;

Die Listen sind wie folgt erzeugt:

Delphi-Quellcode:

  vSPSSO := TStringList.Create;
  vSPSSO.Duplicates := dupIgnore;
  vSPSSO.Sorted := True;