动态创建RZgroupBar?????

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
  vbar:TRzGroup;
begin
  For i := 1 to 10 do //创建Group
  begin
     vbar := TRzGroup.Create(RzGroupBar1);
     vbar.Caption := IntToStr(i);
     RzGroupBar1.AddGroup(vbar);
  end;
  For i:= 1 To RzGroupBar1.GroupCount - 1 do
  begin
      for j:= 1 to  5 do //如何创建group[i].item
      begin
        vbar := TRzGroup.Create(RzGroupBar1.Groups[i]);
        //如何创建Group[i]下的item
      
      end;
  end;
end;