Truco para mayusculas en DBGrid

[Johnny Q]

Un saludo a todos.

Como es bien sabido por todos el componente DBGrid no tiene una propiedad que transforme el texto ingresado a mayusculas. Pues bien, aunque depronto para muchos no sea algo novedoso, encontre en Internet un código que aplica para un TMemo pero que se puede adaptar para un DBGrid. El codigo original para el TMemo esta en:
www.hispanam.com/delphi/trucos/truco3.htm
y tiene el titulo de Truco 55 - Que el texto de un TMemo se escriba siempre en mayúsculas.

Para el DBGrid se puede tomar un fragmento del código e implementarlo en el evento OnKeyPress asi:

 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
 begin
  if Key in ['a'..'z'] then
 	Key := UpCase(Key);
 end;

Espero que pueda ser de utilidad para alguien.