TInterfacedObject wird nicht freigegeben

[TiGü]

Zitat von Sir Rufo:

Du hast da noch was vergessen

Delphi-Quellcode:

TMyClass = class( TInterfacedObject )
end;

var
  MyInstance : TMyClass;
  MyInterface : IInterface;

// das geht
MyInstance := TMyClass.Create;
MyInstance.Free;

// das knallt
MyInstance := TMyClass.Create;
MyInterface := MyInstance; // Referenz-Zähler auf 1
MyInterface := nil; // Referenz-Zähler auf 0 => Instanz wird freigeben
MyInstance.Free; // rumms

Wer sowas macht hat es auch nicht anders verdient!