DBGrid - fixando colunas

type 

 THack = class(TDBGrid) 

Procedure Teste 

begin 

  THack(DBGrid1).FixedCols := 2; 

End;