Methode "Free" selbst implementieren (Assembler-Problem?)

[VizeTE]

Ich glaube ich habe jetzt eine bessere Methode und hoffe das die hier mehr Zuspruch findet [Nochmal vielen Dank an maximov, das war wohl der entscheidende Tip]
Ich übernehme einfach das Owner-Modell von TComponent.

Besitzt ein Objekt keinen Owner und wird meiner Liste hinzugefügt so wird automatisch die Liste als Owner gesetzt.
Besitzt es bereits einen Owner so bleibt dieser unangetastet. Soll das Objekt nie freigegeben werden so trage ich als Owner einfach sich selbst an. (Dann ist es quasi vogelfrei, wie mal irgendein Papst das ausgedrückt hat)

Wenn ich die Liste dann freigebe werden alle Objekte die der Liste gehören freigegeben, klar.

Und das Besete an der Lösung: Ich kann die Liste auch noch für alle von TComponent abgeleitete Elemente verwenden. Das ich da nicht gleich d'rauf gekommen bin!

Oder seht ihr hier Probleme?