anchor.diff:  procedure TIocpDataMonitor.IncAcceptExObjectCounter;
   begin
      InterlockedIncrement(FAcceptExObjectCounter); 
  +end;
  +
  +procedure TIocpDataMonitor.IncDisconnectedCounter;
  +begin
  +  InterlockedIncrement(FDisconnectedCounter);
   end;
   
   procedure TIocpDataMonitor.incPushSendQueueCounter;
  
positive.code:   lvNextContext :TIocpClientContext;
  {$ENDIF}
  begin
    lvNowTickCount := GetTickCount;
    {$IFDEF USE_HASHTABLE}
    FLocker.lock('KickOut');
    try
  
negative.code:     // 
      FMaxOnlineCount:Integer;
  
      FDisconnectedCounter: Integer;
  
      FSentSize:Int64;
      FRecvSize:Int64;
      FPostWSASendSize: Int64;
  