TPageControl und dynamische anzahl TTabsheets

[Illuminator-23-5]

@Tom: wie kann man das mit 'nem TabControl machen?
@Tpercon:
Ich habs jetzt so weit gebracht:

Delphi-Quellcode:

  setLength(Sites, length(Sites) + 1);
  Sites[high(Sites)] := TTabSheet.Create(Form1);
  Sites[high(Sites)] := ts_Localhost;
  Sites[high(Sites)].Name := 'seite' + IntToStr(pg_Main.PageCount);
  Sites[high(Sites)].TabVisible := true;
  Sites[high(Sites)].Caption := 'test';
  Sites[high(Sites)].PageControl := pg_Main;
  pg_Main.InsertComponent(Sites[High(sites)]);

eine Seite kann ich schon hinzufügen
wenn ich eine 2. Hinzufügen will, bringt er eine fehlermeldung (exception) und setzt den 'zeiger' auf die Zeile, wo ich versuch, den Namen zuzuweisen!

wenn ich dich nicht falsch verstanden hab, hast du gemeint, dass ich nicht einen array machen soll
wie solls ohne array gehn???