Есть способ нормального сохранения columns для субкомпонента DBGrid

в DFM?
сейчас сохраняется с Grid.

 Grid.Columns = <
      item
        Grid.Expanded = False
        Grid.FieldName = 'ID_OBJECT'
        Grid.Visible = True
      end

Надо чтобы сохранялась без Grid.

Код компоненты:

type
  TrbCustomGrid = class(TCustomPanel)
  private
    FBtnPanel: TPanel;
    FButton: TSpeedButton;
    FGridPanel: TPanel;
    FGrid: TDBGrid;
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor destroy;
    { Public declarations }
  published
    property Grid: TDBGrid read FGrid write FGrid;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('rBControls', [TrbCustomGrid]);
end;

{ TrbCustomGrid }

constructor TrbCustomGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  Width:=200;
  Height:=200;

  FBtnPanel:= TPanel.Create(self);
  FBtnPanel.Parent:=self;
  FBtnPanel.Align:=alTop;

  FButton:=TSpeedButton.Create(self);
  FButton.Parent:=FBtnPanel;

  FGridPanel:= TPanel.Create(self);
  FGridPanel.Parent:=self;
  FGridPanel.Align:=alClient;

  FGrid:=TDBGrid.Create(self);
  FGrid.Parent:=FGridPanel;
  FGrid.Align:=alClient;
  FGrid.SetSubComponent(true);
  FGrid.Name:='myGrid';


end;

Уточнение

Grid.Expanded = False

Неправильно.
Должно быть

Expanded = False

вопрос по компонентам,
суперGrid5 пишем?

Не супер Грид, а составной компонент.
Вопрос в том, почему Delphi так пишет в DFM и как это решить.

Автор читал что-нибудь по созданию компонентов? Конопка? Голованов, Веселов?

TMyDBGrid = class(TCustomDBGrid)
  protected
    procedure DefineProperties(Filer: TFiler); override;
  published
    property Height stored false;
    property Width stored false;
    property Left stored false;
    property Top stored false;
end;

procedure TMyDBGrid.DefineProperties(Filer: TFiler);
begin
// пусто
end;

  TrbCustomGrid = class(TCustomPanel)
  published
    property Grid: TMyDBGrid read FGrid write FGrid;
    property Columns: TDBGridColumns read GetColumns write SetColumns;
  end;

function TrbCustomGrid.GetColumns: TDBGridColumns;
begin
  Result := Grid.Columns;
end;

procedure TrbCustomGrid.SetColumns(const Value: TDBGridColumns);
begin
  Grid.Columns.Assign(Value);
end;

Замечательный ответ.
Из приведенных авторов не читал, но читал статьи в инете.

вопрос по компонентам

Замечательный ответ. Из приведенных авторов не читал, но читал статьи в инете.

Я боюсь одними статьями богат не будешь, ибо после прочтения указанной литературы такие вопросы могут и не возникнуть.

2 DimaBr
Спасибо огромное!!!!!!!!!