Zitat von
toms:
Es genügt, die Länge von SourceChars einmal vor der Schleife zu berechnen. length(SourceChars)
Wenn es das ist, dann hat Lazarus aber den Zug vor geraumer Zeit bereits verpasst. Ich hätte jetzt eher auf das Randomize bzw. Random getippt. Wie gesagt, unter Delphi ist das blitzschnell.