procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  inif: TINIFile;
begin
  inif := TINIFile.Create('.\settings.ini');
  inif.WriteString('STATES','DBADVGRID1',DBAdvGrid1.ColumnStatesToString);
  inif.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  inif: TINIFile;
  colstates: string;
begin
  adotable1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\CARS.mdb;Persist Security Info=False';
  adotable1.Active := true;
  DBAdvGrid1.SetColumnOrder;
  DBAdvGrid1.Options := DBAdvGrid1.Options + [goColSizing, goColMoving];

  inif := TINIFile.Create('.\settings.ini');
  colstates := inif.ReadString('STATES','DBADVGRID1','');
  inif.Free;

  if colstates <> '' then
    DBAdvGrid1.StringToColumnStates(colstates);
end;