Ayuda con Stringgrid

[estebanx]

Yo solo quiero la columna seis, yo vi un codigo aqui mismo pero no me funciona

Código Delphi [-]
type
 TStringGrid = class(Grids.TStringGrid)
  protected
    function CanEditShow: Boolean;

implementation

uses u_Datos, U_Cons_Suplidores;
function TStringGrid.CanEditShow: Boolean;
begin
 result := (col=6);
end;
  end;

No me funciona