_AddRef und _Release sollten nur in der Basisklasse TOperatorObject vorhanden sein.
Daher brauchen diese Funktionen auch nicht virtuell zu sein.
Delphi-Quellcode:
TSmallInteger = Class(TOperatorObject)
Protected
Function _AddRef: Integer; Override; StdCall; // weg
Function _Release: Integer; Override; StdCall; // weg