Supports ohne out Parameter

[himitsu]

Verwende mal TComponent, statt dem TInterfacedObject. [edit] oder TInterfacedPersistent, dessen Name ich ständig vergesse (Dank an Uwe)

Du nutzt das TFirstSecond als Objekt-Instanz, womit es intern keine Interfacereferenz gibt.
Suppots greift aber intern über ein Interface zu, womit also eine Interface-Referenz erstellt wird. Bei Freigabe dieser Referenz wird dann das ganze Objekt freigegeben, da es keine weiteren Referenzen gibt.

In TComponent wird die Referenzzählung der Interfaces "ignoriert" und diese steuern vorallem nicht die Freigabe.