Delphi allows to
access an object instance via object reference and interface reference at the same time. Consider this code: program RefCounts; {$APPTYPE CONSOLE} uses SysUtils; procedure Test; var Obj: TInterfacedObject; II: IInterface; begin Obj:= TInterfacedObject.Create; ...
More...