zugriffsverletzung bei TStrings

[glkgereon]

ja, ich nutz jetzt TStringlist

funzt aber immer noch nit

also, das ding soll eine datei einlesen und zählen, wie oft jedes wort vorkommt
kann man das noch optimieren bzw wo ist mein fehler?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
wort:string;
i:integer;
data, woerter, zahlen:TStrings;
begin
//create
Data:=TStringList.Create;
Woerter:=TStringList.Create;
zahlen:=TStringList.Create;
//laden
data.LoadFromFile(Shelltreeview1.Path);
while i<length(data.Text) do
    Begin
    if data.Text[i]='' //wenn wort zuende
    then  Begin
          if data.IndexOf(wort)<>-1 //wenn wort schon abgelegt, zähler erhöhen
          then zahlen.Strings[data.IndexOf(wort)]:=inttostr(strtoint(zahlen.Strings[data.IndexOf(wort)])+1)
          else  Begin //sonst neu anlegen und zähler auf eins setzen
                data.Add(wort);
                zahlen.Add('1');
                End;
          wort:='';
          End
    else wort:=wort+data.Text[i]; //wenn wort nicht zuende dann buchstabe hinzufügen
    i:=i+1;
    end;
for i:=0 to Woerter.Count-1 do
    ListBox1.Items.Add(zahlen[i]+' - '+woerter[i]);
end;

bei der letzten forschleife sollen die ergebnisse ausgegeben werden...
es kommt aber nichts....