convertir un texto a mayusculas

[uper]

hola a todos,

Disculpes ustedes, tengo que convertir un texto a mayusculas cuando se escriba, pero esta vez cambie un dbedit por un dbmemo por que como son varias palabras; para mostrar perfectamente todo el texto capturado. (Haber si me explico.)

En el componente Dbmemo del evento onkeypress puse este codigo
Upper(dbmemo1.text) pero no hace el cambio ni tampoco en onchange, sin encambio para el componentes Dbedit y edit existe una propiedad upper=uppercase y lo convierte lo que vayamos escribiendo, hay otra manera de que se pueda lograr esto pero con un memo ?

gracias, les agradesco una sugerencia.