Динамическое создание массива TScrollBar

...
pc: TPageControl;
...
procedure Form1.FormShow(Sender: TObject);
var
  tsList: array of TTabSheet;
  cusgList: array of TSomeCustomGrid;
  sbList: array of TScrollBar;
  i: Integer;
begin
  ...
  SetLength(tsList, 6);
  SetLength(cusgList, 6);
  SetLength(sbList, 6);
  for i := 0 to 5 do
  begin
    tsList := TTabSheet.Create(pc);
    cusgList := TSomeCustomGrid.Create(tsList);
    sbList := TScrollBar.Create(cusgList);
    cusgList.VertScBar := sbList;
  ...
end;