如何将两个RzGroupBar中的所有RzGroup并到一个RzGroupBar中？

[pclogic]

假如现在有RzGroupBar1（含RzGroup1和RzGroup2）和RzGroupBar2（含RzGroup3和RzGroup4）
现在要将RzGroupBar2中的RzGroup3和RzGroup4并到RzGroupBar1中，
使用RzGroupBar1.AddGroup(RzGroup3); RzGroupBar1.AddGroup(RzGroup4); 有下面两种情况：
如果RzGroup3和RzGroup4中的Items为空时，没有出错，程序正常；
如果RzGroup3中的Items不为空时，会出现“Control 'RzGroup3' has no parent window.”

[pclogic]

怎么没人顶呀？？？？

[老之]

procedure TForm1.Button1Click(Sender: TObject);
var Temp:TRzGroup;
begin
Temp:=TRzGroup.Create(self);
RzGroupBar1.AddGroup(Temp);
Temp.Caption:=RzGroup3.Caption;
Temp.Items:=RzGRoup3.Items;
RzGroupBar2.RemoveGroup(RzGRoup3);
end;

[pclogic]

先谢谢你的答复！
我的目的是把RzGroup3中所有内容（Items和其它控件）和事件方法都转过去。

[pclogic]

问题已解决，
谢谢liangqingzhi(老之) 的提示。

一会把答案放上来

[pclogic]

procedure AppendGroup(var AMain, ASub: TRzGroupBar);
var
objGroup,objtmp : TRzGroup ;
i : integer ;
begin
for i := 0 to ASub.GroupCount -1 do
begin
objtmp := TRzGroup.Create(self);
objtmp.Items := ASub.Groups[i].Items ;
ASub.Groups[i].Items.Clear ;

objGroup := ASub.Groups[i];
AMain.AddGroup(objGroup);
objGroup.Items := objtmp.Items ;
end ;
objtmp.Free ;
end;