Alternativ kann man den Referenzzähler (FRefCount) auch gleich auf 0 setzen.
Das kann aber auch schief gehen. Wenn nämlich im Destroy die Instanz als Interface-Referenz verwendet wird, die wiederum eine Referenzzählung auslöst, wird mit dem _AddRef/_Release womöglich noch ein Free aufgerufen. Das gilt übrigens immer bei Abkömmlingen von TInterfacedObject und nicht nur in diesem Fall. Warum dieser Fall im constructor berücksichtigt wird, im destructor aber nicht, bleibt ein Rätsel. Ein diesbezüglicher
QC-Eintrag von mir bereits für Delphi 2007 ist immer noch
Open. In der
VCL kommt das Problem offenbar nicht vor.