Delphi 如何将面板动态添加到TCategoryPanelGroup？

如何动态地将面板添加到TCategoryPanelGroup

Var
 LPanel : TCategoryPanel;
begin
 LPanel:=TCategoryPanel.Create(CategoryPanelGroup1);
 LPanel.Caption:='My Panel';
 LPanel.PanelGroup:=CategoryPanelGroup1;
end;

请给我举个例子，谢谢

到目前为止我都试过了

procedure TWForm.BitBtn3Click(Sender: TObject);
var 
  categorypanel: tcategorypanel;
begin
  categorypanel := categorypanel.Create (categorypanelgroup1);
  categorypanel := tcategorypanel.Create(self);
  categorypanel.caption:=edit1.text;
end;

---

必须创建组件，然后使用CategoryPanelGroup设置的

PanelGroup

属性

Var
 LPanel : TCategoryPanel;
begin
 LPanel:=TCategoryPanel.Create(CategoryPanelGroup1);
 LPanel.Caption:='My Panel';
 LPanel.PanelGroup:=CategoryPanelGroup1;
end;

非常感谢你，我不知道这个属性。