Ayuda con tMemo

[ContraVeneno]

A lo que Roman se refiere, es que tienes que hacer un ciclo for:

Desde 1 hasta la última línea del memo
Desde la primer letra hasta la última de la línea
si es vocal entonces
vocales mas uno
si no
consonantes mas uno

Muestras total que es igual a las consonantes mas las vocales
Muestras vocales y muestras consonantes

Algo así.. mas o menos... me quedaría la duda de como manejar los caracteres especiales en caso de que existiera alguno, pero si como mencionas, es tarea de tu escuela, pues no creo que haya que preocuparse por eso.

La propiedad Lines del Memo y su propiedad Count te pueden servir de mucho.

Saludos.

Edito... como que me distraje... Roman propone algo más sencillo... yo me quedé pensando en ir línea por línea, pero ciertamente es más sencillo recorrer el texto como menciona Roman...