anchor.diff:      s := FDebugStrings.Text;
       s := Format('ǰѾʧȥOwner:%s',
          [s]);
  -    sfLogger.logMessage(s, 'core_debug', lgvWarning);
  +    sfLogger.logMessage(s, CORE_DEBUG_FILE, lgvWarning);
       Assert(FOwner <> nil);
     end;
   
  
positive.code:     end;
      {$ENDIF}
  
       if FReferenceCounter = 0 then  lvCloseContext := true;
    finally
      InnerUnLock;
    end;
  
negative.code: 
      /// <summary>
      ///   ִӶϿ¼
      ///   ȷ:̵߳
      /// </summary>
      procedure InnerCloseContext;
  
  