Problemas para realizar una curp necesito algo de ayuda

[madrid_cr7]

Empezado por oscarac

no entiendo
quieres sacar la Primera Vocal de lo que coloques en el EDIT

ejemplo
si Colocas Alvarado debe mostrar la A ?
si colocas Colmenares debe mostrar la O ?
si colocar swchgener debe mostrar la E ?

si pero la primera vocal a partir de la segunda letra del apelldo pues la variable a la uso para copiar la primer letra del apelldo a:=copy(edit1.Text,1,1);
y la d la estoy usando para la primer vocal a partir de la segunda letra hasta el final.