TStringList - Anzahl der Wörter zählen

[Go2EITS]

Hallo DP!

Ich wende mich mal wieder mit einer Problemstellung an Euch: Ich habe eine TStingList namens Woerter und AnzWoerter (in die ich die Anzahl/Häufigkeit der Woerter speichern möchte). Ich sehe mit der Function TOLIST(S:String):Boolean; nach, ob der String/das Wort in der Liste
ist und wird eingefügt, wenn es nicht vorhanden ist. jetzt ist der String/das Wort aber schon vorhanden und möchte eigentlich ein Zähler zur Stringliste hinzufügen. Kann ich die TstingList 2 Dimensional erstellen, so dass die Werte nicht durcheinander kommen.
Im Übrigen ist woerter.sorted:=True gesetzt.
Hier mein schrecklicher Code:

Delphi-Quellcode:

Function ToList(const S:String):Boolean;
var i,x:Integer;
flag:Boolean;
index:integer;
begin
result:=false;
// String gefunden, dann Zähler erhoehen.
if  woerter.Find(s,index) then
       begin
       X:=StrToInt(Anzwoerter[index]);INC(x);AnzWoerter[index]:=inttostr(x);
       exit;
       end;
// Wenn nichts gefunden wurde:
woerter.Add(s);
// Wir wissen den Index
woerter.Find(s,index);
// Hier der Code der die Liste AnzWoerter durcheinander bringt.
// Wie kann ich die Liste synchronisieren?
anzwoerter.Add('1');
result:=true;
end;

Hat jemand einen Lösungsansatz?
Beste Grüße! Go2EITS