Hola.
Si el memo se llama Memo1, obtienes con la propiedad Text todo el contenido del memo de esta forma Memo1.Text
Lo que haría sería utilizar un bucle "For". Busca en las ayudas y verás como hacerlo. En la práctica, escribe For y luego pulsa Ctrl+J, cuando te aparezcan varias opciones, pulsa directamente Enter y te escribirá casi todo el código.
- Tienes que declarar 3 variables integer y 1 string.
- Asigna el contenido de Memo1.text a la variable string.
- Recorre cada uno de los caracteres de la variable string con el bucle "For". Si la variable es "a" para conocer cual es el tercer caracter usarías "a[3]". Puedes sustituir el valor 3 por el valor de la variable del "For".
- Ojea en las ayudas Length, pues te será necesario.
- Comprueba si cada caracter está incluido entre las vocales, consonantes y lo que te hayan pedido. Para ello, por ejemplo, pondría el caracter en minúscula, y vería si está incluido en una cadena con todas las vocales ('aeiou') en minúscula. Para hacer esto, busca en las ayudas las funciones Lowercase y pos.
- Si está contenido, utiliza if...then (ojea las ayudas) para incrementar el contador de vocales (una de la variables integer).
- Lo mismo harías con las consonantes.
- Finalmente presenta el resultado con un mensaje. Ojea en las ayudas Showmessage y InttoStr.
Creo que con toda esta información y un par de ratos que le dediques, lo tienes resuelto.
Espero que te sirva.
Recibe un saludo.