{ With a TStringGrid you can just write StringGrid1.FixedCols := 2 For a TDBGrid, make a Typecast:}procedure TForm1.Button1Click(Sender: TObject);begin TStringGrid(DbGrid1).FixedCols := 2;end;