UpperCase en DBGrid

[Jose Roman]

Cordial saludo,

Resulta que necesito que un bsSkinDBGrid (componente de Business Skin Form adquirido hace mas de dos años) me muestre en mayusculas los campos, roman realizo eso pero he tratado de implementarlo para este componente, no se que estare realizando mal, asi que les transmito el codigo fuente y espero alguien me corrija ya que no realiza absolutamente nada.

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, bsSkinCtrls, bsSkinGrids, bsDBGrids,Vcl.Grids,Vcl.StdCtrls,
  Data.DB, FIBDatabase, pFIBDatabase, FIBDataSet, pFIBDataSet;

type
  TDBGrid = class(bsDBGrids.TbsSkinDBGrid)
  protected
    function CreateEditor: TbsSkinInplaceEdit; override;
  end;

  TForm1 = class(TForm)
    bsSkinDBGrid1: TbsSkinDBGrid;
    tbKardex: TpFIBDataSet;
    Database: TpFIBDatabase;
    Transaction: TpFIBTransaction;
    dsKardex: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  THackEdit = class(TCustomEdit);

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TDBGrid }

function TDBGrid.CreateEditor: TbsSkinInplaceEdit;
begin
  Result := inherited CreateEditor;
  THackEdit(Result).CharCase := ecUpperCase;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Database.Connected := True;
  Transaction.StartTransaction;
  tbKardex.Open;
end;

end.

Gracias por su valiosos aportes.