动态产生的radiogroup和radiobutton不能正确显示，请指导。

myradio :array [0..9,0..4] of Tradiobutton;
  myradioGroup :array[0..9] of TRadioGroup;
  num1:integer = 9;
  num2:integer =4;  //initalize radiogroup
    for i:=0 to num1 do
    begin
        myradiogroup[i]:=TradioGroup.Create(self);
        if(i<=num2) then  myradiogroup[i].parent:= TabSheet1  //是选项卡1
        else  myradiogroup[i].parent:= tabsheet2;  //是选项卡2
        myradiogroup[i].left:= 32;
        myradiogroup[i].width:=350;
        myradiogroup[i].top:=  16+(i mod 5)*80;
        myradiogroup[i].height:=65;
    end;    //initalize radiobutton
    for i:=0 to num1 do
       for j:=0 to num2 do
       begin
            myradio[i][j]:= TradioButton.create(self);
            myradio[i][j].parent:= myradiogroup[i];
            myradio[i][j].left:= 32+(j mod 5)*60;
            myradio[i][j].top:=  32+(i mod 5)*80;
            case j  of
                   0 : myradio[i][j].Caption:='A';
                   1 : myradio[i][j].Caption:='B';
                   2 : myradio[i][j].Caption:='C';
                   3 : myradio[i][j].Caption:='D';
                   4 : myradio[i][j].Caption:='E';
            end;
        end;
显示的结果非常奇怪，在两个选项卡上都能各正确显示5个radiogroup，但是只有最顶上面的radiogroup（也就是下标是0和5的那两个）里面有radiobutton，其他的里面都是空的！
为什么会这样呢？
谢谢高手指点