Zitat:
S:=RichEdit1.Text;
Hoffe das hilft dir ein wenig

Hmmm, jau. Jetzt gehts ab. Die minimalen Änderungen bei der function CountWordsSlow bringen es. Schwupps das Ergebnis ist sofort da - ohne den Änderungen konnte ich mitunter ca. 15 Minuten Däumchendrehen.
Danke.