Buchstaben tauschen in einer Memo-Komponente

[johny]

Wahrscheinlich, um zu zeigen, dass der Text genau so gut lesbar ist?

Gar nicht so einfach. Ich würde jedes Wort (Blank als Trennzeichen; Arrayröße: [0..n] n = chars pro Wort) in ein dynamisches Array speichern, die Stelle 1 bis n-1 mit Hilfe von 'randomize' tauschen und in ein neues Array schreiben. Dieses kann dann ausgegeben werden. Hab aber schon lange nicht mehr Pascal programmiert. Wie genau du das realisieren könntest, kann ich dir deshalb leider nicht aus dem Stehgreif sagen.