[jhonny]

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;