Object aus TObjectList soll sich selbst freigeben, trotz OwnObjects

[himitsu]

Das Objekt löscht sich nicht selbst, sondern ruft TList.Delete auf
oder es ruft TList.Extract auf, bevor es sich löscht.

Und wenn es alles TComponent sind TComponent.FreeNotification . [edit] das Notification-Pattern
http://geheimniswelten.de/artikel/tc...t-auto-remove/

[edit]
TComponentList<T>.TNotify.Notification sieht grad irgendwie komisch aus ... ich glaub da hab ich die falsche Version hochgeladen.
Ich glaub das muß if (Operation = opRemove) and not Contains(AComponent) then lauten.

Delphi-Quellcode:

if Operation = opRemove then
  while FParent.Extract(AComponent) <> nil do ;