Vielleicht sollte man den Aufruf korrekt durchführen?
Delphi-Quellcode:
procedure Test(i: IInterface);
begin
end;
var
o: TInterfacedObject;
begin
o := TInterfacedObject.Create;
Test(o as IInterface); //<- RefCount wird automatisch erhöht
//Objekt "lebt" noch!
end;
Sowas sollte meiner Ansicht nach über die Syntaxprüfung geregelt sein...zu mindest mit einer Warnung a la "prüfen sie ob das Object Referenzzählung implemtiert"