Anzahl eines Zeichens im String ermitteln

[EWeiss]

ich weis jetzt nicht was ihr eigentlich erreichen wollt.
http://www.delphigroups.info/2/ed/443666.html
Google spuckt zig varianten von StrScan aus sollte man die jetzt alle einem Benchmark unterwerfen?

KodeZwerg variante ist die erste..
Anscheinend soll die zweite schneller sein.

gruss