Bin nach längerer Suche fündig geworden:
stackoverflow.com/qu...ord-in-a-text-string
Habe den Code noch angepasst, und
Result := CH in [...] habe ich durch
CharInSet ersetzt, das ich auch gleich noch um einige Zeichen erweitert habe. Insgesamt möchte ich erreichen, dass damit genau die Anzahl an Wortvorkommen erkannt wird, die auch der FindDialog bei der Suche nach ganzen Worten findet. Der legt das ja eher grosszügig aus, was ein Wort ist, so wird auch eine einzelne Ziffer als Wort angesehen.
Muss ich noch testen, ob ich da noch andere Zeichen in
CharInSet aufnehmen muss.
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!