Memo zur laufzeit Kreieren und schliessen

[Pseudemys Nelsoni]

hi,

ich hatte das nochmal mit nem dynamischem array gemacht, da ich beliebig viele brauche,
aber irgendwie bekomme ich beim buttonclick ne Zugriffsverletzung.
Was ist an folgendem falsch?

dynArray: Array of TTabSheet; // Global

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(dynArray, high(dynArray)+2);
  with  dynArray[high(dynArray)+1] do
  begin
    Create(self);
    Name := 'TabSheet' + IntToStr(high(dynArray)+1);
    Parent := PageControl1;
    Caption := 'hi';
    PageControl := PageControl1;
    Show;
  end;
end;