Häufigkeit der Wörter zusammenfassen

[Mokus]

[bitte_ vergessen] Bau eine weitere If abfrage ein.

mit "IndexOf" schausdt du doch, ob das object in der liste vorhanden ist.
if index >0
dann füge es nicht hinzu.
[/bitte _ vergessen]

[edit] du setzt den text auf st_w1.comma text.
d.h. du fügst den ganze text hinzu. nicht nur das einzelne Wort.
text := st_w1[i] müsste da noch hin, statt
text := st_w1-comma text.
das müsste es dann schon gewesen sein.
[/edit]