anchor.diff:        FContextDNA := FOwner.RequestContextDNA;
         FActive := true;
         FOwner.AddToOnlineList(Self);
  -      InnerAddToDebugStrings(Format('[%s]*(*):(%d),%s',
  -        [NowString, FReferenceCounter, 'DoConnected:ӵб']));
  +      InnerAddToDebugStrings(Format('[%s]:*(%d):(%d:objAddr:%d) %s',
  +        [NowString, FReferenceCounter, self.SocketHandle, IntPtr(Self), 'DoConnected:ӵб']));
   
   
         if self.LockContext('onConnected', Self) then
  
positive.code: procedure TDiocpCustomContext.InnerCloseContext;
  begin
    Assert(FOwner <> nil);
    AddDebugStrings(Format('*[*][%d]:InnerCloseContext- BEGIN, socketstate:%d',
           [self.SocketHandle, Ord(FSocketState)]));
  {$IFDEF DEBUG_ON}
    if FReferenceCounter <> 0 then
      FOwner.logMessage('InnerCloseContext FReferenceCounter:%d', [FReferenceCounter],
  
negative.code:     except
      end;
    finally
      AddDebugStrings(Format('*(%d):(%d:objAddr:%d)->,%s',
        [FReferenceCounter, Self.SocketHandle, IntPtr(Self), 'InnerCloseContext:Ƴб']));
      FOwner.RemoveFromOnOnlineList(Self);
  
    end;
  end;
  
  