Komponenten zur Laufzeit erzeugen -> bringt Fehler

[schuetzejanett]

Hallo,

ich will auf meinem Formular eine erst zur Laufzeit vorgegebene anzahl von Panel und Listboxen erzeugen

Die panel funktionieren auch und die Listboxen auch aber wenn ich díe Listboxes Zeilen oder Text hinzufügen kommt beim ausführen der Fehler:

Im Projekt Dart.exe ist eine Exception der Klasse EInvalit Operation aufgetreten. Meldung: Element hat kein übergeordnetes Fenster.
Prozess wurde angehalten. Fortsetzen mit Einzelne Anweisung oder Start.

Wo liegt mein Fehler die Felder name und Punkte von i haben einen inhalt das habe ich schon überprüft.

Delphi-Quellcode:

procedure TTpunkt.FormShow(Sender: TObject);

var i :integer;
  AName : array of TPanel;
  APunkte : array of Tmemo;
begin

 setlength(Aname,unit1.anz);
 For i :=0 to High(Aname) do
    begin
      AName[i] := TPanel.Create(self);
      with AName[i] do
        begin
          Caption :=aspieler[i].name;
          Height := 17;
          Top := 80;
          Width := 85;
          Left := 15 + (i * 90);
          parent := self;
        end;
    end;
 setlength(APunkte,unit1.anz);
 For i :=0 to High(APunkte) do
    begin
      APunkte[i] := TListbox.Create(self);
      with APunkte[i] do
        begin
          Items.add (inttostr(aspieler[i].punkte[0]));
          Height := 320;
          Top := 105;
          Width := 85;
          Left := 15 + (i * 90);
          parent := self;
        end;
    end;
end;

könnt ihr mir sagen wo mein fehler liegt oder wie ich die Komponenten anders erzeugen kann so das es funktioniert