Tip Rating (9):

{
  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;

Rate this tip: