Delphi - Contar Caracter

Exemplo de função utilizada para contar quantidade de vezes que um caracter é encontrado em uma string.
Muito utilizado em validações de campos.