Deixando uma coluna do dbgrid c/ maiúsculas

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