Panel incl. aller Komponenten zerstören

[DRK11]

Hallöchen,

ich bin neu in dieser Forum und hoffe, dass mir jemand helfen kann.

ich möchte eine Liste mit Panels realisieren. auf Knopfdruck werden weitere Panels mit Einträgen hinzugefügt.
Innerhalb der Panels ist ein Button durch den das Panel wieder gelöscht werden soll. Das funktioniert aber nicht,
wahrscheinlich die OnClick-Ereignisbehandlung, die beim Drücken auf den Button ausgelöst wird natürlich beim Destroy des
übergeordneten Panels auch gelöscht wird. Ich bekomme immer einen Abstraktion-Fehler.

Hier die "Lösch--Methode"

Delphi-Quellcode:

procedure xxx.DelClick (Sender:TObject);
var
  XPanel : TPanel;
  XBitBtn : TBitBtn;
  x : Integer;
  Found : Boolean;
begin
  x := 0;
  found := false;
  repeat
    XPanel := Liste[x];
    XBitBtn:= sender as TBitBtn;
    if XBitBtn.Parent = XPanel then
    Begin
      Found := True;
      Liste.delete(x);
      XPanel.destroy;
    end;
    inc(x);
  until (x = (Liste.Count)) or Found;
end;

Vieleicht hat ja jemand eine Idee.

Dirk