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

[The_Immortal]

Приветствую!

Господа, подскажите, пожалуйста, по каким причинам при динамическом создании элементов массива TScrollBar выдается AV?

procedure Form1.FormShow(Sender: TObject);
var
  i: Integer;
  sb: TScrollBar;
  sbList: array of TScrollBar;
begin
  ...
  sb := TScrollBar.Create(self); // ОК

  for i := 0 to 5 do 
  begin
    sbList[i] := TScrollBar.Create(self); // !!! AV на первой же итерации 
  end;
 
end;

Я условно описал в FormShow, на самом деле эти ScrollBar должны создаваться для кастомного компонента и назначаться его соответствующему свойству. Но проблема там возникает такая же на этапе создания TScrollBar:

...
pc: TPageControl;
...
procedure ...
var
  tsList: array of TTabSheet;
  cusgList: array of TSomeCustomGrid;
  sbList: array of TScrollBar;
  i: Integer;
begin
  ...
  for i := 0 to 5 do
  begin
    tsList[i] := TTabSheet.Create(pc);
    cusgList[i] := TSomeCustomGrid.Create(tsList[i]);
    sbList[i] := TScrollBar.Create(cusgList[i]); // !!! AV на первой же итерации 
    cusgList[i].VertScBar := sbList[i];
  ...
end;

Спасибо!

[jillitil]

    SetLength(sbList, 6);
    FOR i := 0 TO 5 DO
        sbList[i] := TScrollBar.Create(Self);

[The_Immortal]

Капец... Главное, везде выше длину я задал, а sb решил обделить почему-то...

Спасибо!