Pascal/Delphi Contar Vogais/Consoantes do arquivo(*.txt)

[isoftware]

Estou com um problemas nessa aplicação.

Fiz um Form aonde o usuário coloca um arquivo (*.txt) que vai direto pro Tmemo, lá aparece o que contem no arquivo e quantas vogais existem no arquivo.txt.

Mas não estou conseguindo por quantas consoantes tem

Alguém sabe?

procedure TF_lerArquivo.contaVogal(arq :String);
var i, ret, contavogais: Integer;
begin
ret := 0;
arq := AnsiUpperCase(arq);
contavogais :=0;
 for i := 0 to Length(arq) do
  begin
     if arq[i] in ['a','e','i','o','u','A','E','I','O','U']then
       Inc(ret);
       contavogais := ret;
  end;
   MemoTxt.Lines.Add('Total de vogais: ' + IntToStr(contavogais));

end;

procedure TF_lerArquivo.contaConsoante(arq : String);
 var i, cont, contaConsoantes: Integer;
begin
cont := 0;
arq := AnsiUpperCase(arq);
contaConsoantes := 0;
 for i := 0 to length(arq) do
   begin
    if arq[i] in ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'] then
      Inc(cont);
      contaConsoantes := cont;

   end;
   MemoTxt.Lines.Add('Total de consuantes: ' + IntToStr(contaConsoantes));
end;

 

 

adicionado 55 minutos depois

[Resolvido]

Achei o erro...

era o AnsiUpperCase, quando removi funcionou.

Cod:

procedure TF_lerArquivo.contaVogal(arq :String);
var i, ret, contavogais: Integer;
begin
ret := 0;
contavogais :=0;
 for i := 0 to Length(arq) do
  begin
     if arq[i] in ['a','e','i','o','u','A','E','I','O','U']then
       Inc(ret);
       contavogais := ret;
  end;
   MemoTxt.Lines.Add('Total de vogais: ' + IntToStr(contavogais));

end;

procedure TF_lerArquivo.contaConsoante(arq : String);
 var i, cont, contaConsoantes: Integer;
begin
cont := 0;
contaConsoantes := 0;
 for i := 0 to length(arq) do
   begin
    if arq[i] in ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'] then
      Inc(cont);
      contaConsoantes := cont;

   end;
   MemoTxt.Lines.Add('Total de consuantes: ' + IntToStr(contaConsoantes));
end;