[dec]

Hola,

Lo siguiente parece funcionar también en caso de que se escriba una "ñ", por ejemplo:

Código Delphi [-]
 var
   P: PChar;
 begin
   P := AnsiUpper(@Key);
   if Key in ['a'..'z'] then
     Key := Char(P);
 end;