anchor.diff:  procedure TDiocpCustomContext.InnerCloseContext;
   begin
     Assert(FOwner <> nil);
  -  AddDebugStrings(Format('*[*][%d]:InnerCloseContext- BEGIN, socketstate:%d',
  -         [self.SocketHandle, Ord(FSocketState)]));
  +  AddDebugStrings(Format('*(%d):(%d:objAddr:%d)->InnerCloseContext- BEGIN, socketstate:%d',
  +         [FReferenceCounter, self.SocketHandle, IntPtr(Self), Ord(FSocketState)]));
   {$IFDEF DEBUG_ON}
     if FReferenceCounter <> 0 then
       FOwner.logMessage('InnerCloseContext FReferenceCounter:%d', [FReferenceCounter],
  
positive.code: end;
  
  procedure TDiocpCustom.AddToOnlineList(pvObject: TDiocpCustomContext);
  begin
    FLocker.lock('AddToOnlineList');
    try
      FOnlineContextList.Add(pvObject.FSocketHandle, pvObject);
      if DataMoniter <> nil then
      begin
        DataMoniter.CalcuMaxOnlineCount(FOnlineContextList.Count);
      end;
    finally
      FLocker.unLock;
    end; 
  end;
  
  function TDiocpCustom.CheckTimeOutContext(pvContext:TDiocpCustomContext;
  
negative.code:     except
      end;
    finally
      AddDebugStrings(Format('*(%d):(%d:objAddr:%d)->,%s',
        [FReferenceCounter, Self.SocketHandle, IntPtr(Self), 'InnerCloseContext:Ƴб']));
      FOwner.RemoveFromOnOnlineList(Self);
  
    end;
  end;
  
  