VCL Delphi

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