Es gibt in diesem Forum einen Edit-Button
!
Wort := Woerterliste[Random(Woerterliste.Count - 1)];
Da 0 <= Random(x)
< x gilt, muss die Zeile
Wort := Woerterliste[Random(Woerterliste.Count{ + 1 - 1})];
heißen. Außerdem solltest du die Stringliste auch wieder freigeben, wenn sie nicht mehr benötigt wird.