JvPageControl erweitern

[Circle]

Hallo leute, hab da ein problem

ich will während mein programm läuft, das pagecontrol erweitern. hab hier im forum zwar was gefunden aber da kommt immer nen fehler.

das is meinn code

bestellung ist ein formular

Code:

anz_zeilen := DataSource1.DataSet.RecordCount;


  for i := 1 to 10 do begin
    SetLength(TabSheets, succ(i));
    TabSheets[i] := TTabSheet.Create(Bestellung.JvPageControl1);
    TabSheets[i].Parent := Bestellung.JvPageControl1;
    TabSheets[i].Name := 'ArtSheet'+InttoStr(i);
    TabSheets[i].Caption := DBGrid1.Fields[i].DisplayText;
    TabSheets[i].Tag := i;
    TabSheets[i].Visible := true;
    TabSheets[i].PageControl := Bestellung.JvPageControl1;
  end;

das problem jetzt ist, das er keine neuen tabsheets erstellt, kommt immer ein zugriffsfehler oder so.