Yo te voy a dar otra ayudita para saber si un caracter es vocal o consonante.
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)
Lo mejor que veo es declarase algunas constantes de esta forma:
Código Delphi
[-]const
Alfabeto=['A'..'Z'];
Vocales=['A','E','I','O','U','Á','É','Í','Ó','Ú'];
Consonantes=Alfabeto-Vocales;![Stick Out Tongue](http:<span class='comment'>//www.clubdelphi.com/foros/images/smilies/tongue.gif)
De esa forma el código propuesto por
ecfisa queda de la siguiente manera:
Código Delphi
[-]if Upcase(Memo1.Text[i]) in Vocales then Inc(NumVoc);
Para el caso de las consonantes la condicion sería así:
Código Delphi
[-]if Upcase(Memo1.Text[i]) in Consonantes then Inc(NumConso);
Creo que ya te lo hemos hecho todo...amigo
chino150![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)
.
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)
Saludos...
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)