Delphi - Pasar a Mayuscula

Hola:
Necesito pasar a mayuscula, a medida el usuario ingrese en el edit los datos. Lo que pruebo es en el keypress hacer edit1.text:=uppcase(edit1.text);y me conviertiendo a mayuscula pero todo la palabra que ingresa al revés;
Necesito otra solución ....
gracias

Si pones la propiedad "CharCase" del edit con el valor "ecUpperCase" todo lo que escribes te lo pone en mayúsculas

Pero si insiste en hacerlo en el OnKeyPress:
if not (key in ['A'..'Z', #8]) then
Key := UpCase(Key);

Suerte.

como debo pasar a mayuscula en en un memo ya que lo que me indicaron funciona pero para el edit y necesito utilizar un memo y en este que que me pase la ñ a mayuscula.en lo posible a medida que vaya escribiendo.
saludos
gracias

Pablo:

Para pasar la ñ a mayúscula y las letras con acento debes usar las funciones ansi. Creo que se llama ansiuppercase o algo parecido, buscala. Entonces en el OnKeyPress:

Key := ansiUpperCase(Key);

Chau.

Enhorabuena mv y Elena por haber entendido esta frase ¿Cómo lo habeis logrado?

..................
Lo que pruebo es en el keypress hacer edit1.text:=uppcase(edit1.text);y me conviertiendo a mayuscula pero todo la palabra que ingresa al revés;
..................

Ni Rapel lo haría mejor.

Un saludo.