Francamente me parece haber visto una función que hacia esto, pero la verdad es que no la encuentro, por lo que podríamos fabricarla nosotros mismos:
En cualquier versión de Delphi, te servirá esta función:
Código Delphi
[-]
function NumToken(const Cadena: String; Token: Char): Integer;
var
I: Integer;
begin
Result := 0;
for I := 1 to Length(Cadena) do
if Cadena[i] = Token then
Inc(Result);
end;
Si tu versión de Delphi es superior a la versión 7, también podrás hacer lo mismo de la siguiente forma:
Código Delphi
[-]
function NumToken(const Cadena: String; Token: Char): Integer;
var
vChar: Char;
begin
Result := 0;
for vChar in Cadena do
if vChar = Token then
Inc(Result);
end;