Speicherleck in Componentsliste

[S3nsele22]

Hier der grobe Ablauf der Funktion:

anzPopUps := 60;

for i := PopUpList.Items.Count - 1 downto 0 do
begin
PopUpList.Items[i].Free;
end;

PopUpList.Items.Clear;

for i := 0 to anzPopUps do
begin
PopUpList.Add(TPopupMenu.create(aOwnerForm));
end;