delphi 动态创建的checkbox不能在groupbox里显示

代码如下，动态创建checkbox，为什么不能显示？
var
tmp0:array of Tcheckbox;
j:integer;
tmp1:array of string;
begin
setlength(tmp1,4);
setlength(tmp0,length(tmp1));
for j:=0 to length(tmp1)-1 do
begin
tmp0[j]:=Tcheckbox.Create(self);
tmp0[j].Parent:=groupbox1;
tmp0[j].Top:=groupbox1.Top+j*30+5;
tmp0[j].Left:=groupbox1.Left+j*30+5;
tmp0[j].Caption :=inttostr(j);
tmp0[j].Show;
end;
end;

我执行你的代码没有问题，是不是你的groupbox1尺寸太小了

qq 29719593

procedure tform1.button1click(sender: tobject); var i:integer; begin for i:=0 to checklistbox1.count -1 do checklistbox1.checked[i] := true; end;

一直审核不过去，郁闷死我了~