Problem bei case // Problem bei Komponenten löschen

[stahli]

so zur Anregung:

Delphi-Quellcode:

var
  L: TComponentList;
...
    L := TComponentList.Create;
    L.OwnsObjects := False;
...
    L.Add(NewFrame);
...
    for I := L.Count - 1 downto 0 do
    begin
      AFrame := (L[I] as TFrame);
      AFrame.Free;
    end;