UpperCase en DBGrid

[makina]

Hola hay forma de adaptar este codigo a un solo campo y no a todo el dbgrid?

Código Delphi [-]
Uses
...
type
 {Truco para que Convierta de Minúsculas a Mayúsculas en las Celdas
  del dbGrid}
  TDBGrid = class(DBGrids.TDBGrid)
  protected
    function CreateEditor: TInplaceEdit; override;
  end;
public
....
end;
  THackEdit = class(TCustomEdit);
var
...

implementation
//Convierte de Minúsculas a Mayúsculas en Celdas del dbGrid
function TDBGrid.CreateEditor: TInplaceEdit;
begin
  Result := inherited CreateEditor;
  THackEdit(Result).CharCase := ecUpperCase;
end;

Gracias de antemano.