Ich wuerde mir eine 2. Stringliste erzeugen und jeweils die ersten 5 Zeichen hinzuadden.
Delphi-Quellcode:
sort := TStringList.Create;
sort.Sorted := True;
sort.Duplicates := dupIgnore;
sort.Add(wert);
sort.Free;
sort.Duplicates := dupIgnore verhindert, dass du Duplikate bekommst.