Stringlist; Häufigkeit einzelner Wörter

[Mokus]

Hier noch mal der Delphi anfänger


Auschnitt 1)

Delphi-Quellcode:

  st_woerter := tstringlist.create;
  st_woerter2 := tstringlist.create;
  setlength(a_speicher, 2);
  st_woerter.CommaText := Memo1.text;
  s_test := st_woerter.CommaText;

Uschnitt 2)

Delphi-Quellcode:

for a := 0 to st_woerter.Count - 1 do
  begin

    I := 0;
    I := st_woerter2.IndexOf(st_woerter[a]);
    showmessage(inttostr(I));
    if I < 0 then
    begin
      index := st_woerter2.AddObject(s_test, TObject(I));
      I := integer(st_woerter2.Objects[index]);
      inc(I);
      st_woerter2.Objects[index] := TObject(I);
    end;
  end;

  Memo2.text := st_woerter2.text;

For schleife weil er ja jedes einzelnes Abgespeichertes Wort kontrollieren soll.
Sonst ist das die gleiche, andere Variablen ok, syntax wie von @DeddyH: ;
nun fällt mir hier aber ja die zähl variable als auch speichert er jedes wort in der stringlist 2 ?!

bitte um Fehler meldung.
( am besten erstmal nur hinweise, fehler suche hilft beim Lernen )