anchor.diff:      // 
       FMaxOnlineCount:Integer;
   
  +    FDisconnectedCounter: Integer;
  +
       FSentSize:Int64;
       FRecvSize:Int64;
       FPostWSASendSize: Int64;
  
positive.code: 
  procedure TDiocpTcpServer.KickOut(pvTimeOut:Cardinal = 60000);
  var
    lvNowTickCount:Cardinal;
    I, j:Integer;
    lvContext:TIocpClientContext;
    lvKickOutList: array of TIocpClientContext;
  
negative.code:     property ContextCreateCounter: Integer read FContextCreateCounter;
      property ContextOutCounter: Integer read FContextOutCounter;
      property ContextReturnCounter: Integer read FContextReturnCounter;
      property DisconnectedCounter: Integer read FDisconnectedCounter;
      property HandleCreateCounter: Integer read FHandleCreateCounter;
      property HandleDestroyCounter: Integer read FHandleDestroyCounter;
      property Locker: TCriticalSection read FLocker;
  