[M@R!N@]

Hola Juan! Bueno, a ver si te sirve esto...

//En el evento OnKeyPress del Memo escribe:

Key=toupper(Key);

Esto hace que cada que sumas una tecla, automáticamente la convierte en mayúscula, suerte!