InvalidateObject

 (Available in 01 TS COM - TS_COM_ServerInfo)

Source

METHOD InvalidateObject( ) AS OBJECT PASCAL CLASS TS_ServerInfo
   TSTrace Enter
   SUPER:InvalidateObject( )
   IF SELF:_COMGlobalData<>NULL_OBJECT .AND. SELF:_SuperGlobalData ; ...
  ... <>NULL_OBJECT
      InterlockedDecrement( SELF:_COMGlobalData:_ServerInfoInstanceCount  ; ...
     ... )
   END
   SELF:_SuperGlobalData:=NULL_OBJECT
   SELF:_COMGlobalData:=NULL_OBJECT
   TSTrace Leave
RETURN SELF