Contar cuantas palabras empiezan con May

[ecfisa]

si la 1era letra de una palabra es mayuscula.. deveria contar..

Entonces es mucho más sencillo...

Código Delphi [-]
function ContarAparicion(Frase: string): Integer;
var
  i: Integer;
  InWord: Boolean;
begin
  Frase:= ' ' + Frase;
  Result:= 0;
  InWord:= False;
  for i:= 1 to Length(Frase)-1 do
  begin
    InWord:= not (Frase[i] in [' ',',','.']);
    if not InWord and (Frase[i+1] in ['A'..'Z']) then
     Inc(Result);
  end;
end;

Llamada:

Código Delphi [-]
...
  Frase:= 'Cuanto maYor seA la lONGITUD de La ConTraseña,' +
  'menor Es la proBABIlidad de que los ataques "por Fuerza brUTa" tengan Exito.';
  ShowMessage(IntToStr(ContarAparicion(Frase))); // Resultado: 6

Saludos.