for i:=1 to 64 do
begin
box:=TGROUPBOX.create(self);
box.name:='b'+intostr(i);
box.top:=--
box.left:='';
box.caption:=;
l:=TLabel.create(self);
l.name:='l1'+inttostr(i);
l.parent:=box;
l.top;
l.left:=;
l:=Tlabel.create(self);
l.name:='l2'+inttostr(i);
-----
end;