TUIDHeap = class (TRDictionary<longword,TObject>)
  private
    FLastID: IDUID;
    FLock: TCriticalSection;
    TotalTypesCounter: TClassStat;
    procedure ShowLeaks;
  protected
    function GetID (AItem: TObject): integer;
  public
    constructor Create(aUseTotalCounter: Boolean); reintroduce; virtual;
    destructor Destroy; override;
    procedure LockList; inline;
    procedure UnLockList; inline;
    procedure Add(O: TObject); overload;
    procedure AddUnique(O: TObject);
    procedure Add(AUID: IUID); overload;
    procedure Add(AUID: IUID; OUID: TObject); overload;
    procedure Remove(O: TObject);
    procedure IPut(const P: LongWord; O: TObject);
    function GetTByID<T:class> (const ID: IDUID): T; inline;
    function Contains (const AUID: IUID): boolean;
    function GetByID(const ID: IDUID): TObject; overload; //inline;
    function NextID: IDUID;
    function Print: string;
    function PrintCounts: string; //override;
  end;

  TIDHeapRef<T:class> = record
  private
    FUID: int64;
    function GetObject: T;
    procedure SetObject(const Value: T);
  public
    constructor Create (const UID: int64); overload;
    constructor Create (const intfUID: IUID); overload;
    procedure Clear;
    procedure FreeObject;
    function A: boolean;
    function NA: boolean;
    function AO(var Obj:T): boolean;
    function GetInterface (const IID: TGUID; out Obj): Boolean;
    class operator Implicit(ref: TIDHeapRef <T>): T;
    class operator Implicit(Obj: T): TIDHeapRef <T>;
    class operator Implicit(ref: TIDHeapRef <T>): Boolean;
    class operator LogicalNot(ref: TIDHeapRef <T>): Boolean;
    class operator LogicalAnd(a: TIDHeapRef <T>; b: Boolean): Boolean;
    class operator LogicalAnd(a: Boolean; b: TIDHeapRef <T>): Boolean;
    class operator LogicalOr(a: TIDHeapRef <T>; b: Boolean): Boolean;
    class operator LogicalOr(a: Boolean; b: TIDHeapRef <T>): Boolean;
    class operator Equal(a, b: TIDHeapRef <T>): boolean; overload;
    class operator Equal(a: TIDHeapRef <T>; b: T): boolean; overload;
    class operator Equal(a: T; b: TIDHeapRef <T>): boolean; overload;
    property O: T read GetObject write SetObject;
    property ID: int64 read FUID;
  end;