Deixando uma coluna do dbgrid com maiúsculas no Delphi

Procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedField.FieldName=’NOME’ THEN
Key := AnsiUpperCase(Key)[Length(Key)];
end;