动态创建子控件

var  j, k, i: integer;  sName: string;begin  k := 0;  for j := 2 to 5 do    if not Assigned(TScrollBox(FindComponent('s' + inttostr(j)))) then    begin      with TScrollBox.Create(Self) do      begin        Name := 'S' + IntToStr(j);        sName := Name;        Parent := Self;        k := K + 80;   //BoundsRect := Bounds(aLeft, H, aWidth, aHeigh);        Left := k;        Width := 60;        Top := 80;        Height := 50;        Show;        for I := 1 to 5 do          with TSpeedButton.Create(Self) do          begin            Name := 'B' + InttoStr(I) + IntToStr(j);            parent := TScrollBox(Self.FindComponent(sName));            Caption := name;            Show;          end;      end;    end;end;