anchor.diff:      property SendRequestOutCounter: Integer read FSendRequestOutCounter;
       property SendRequestReturnCounter: Integer read FSendRequestReturnCounter;
       property SentSize: Int64 read FSentSize;
  +    property Speed_Recv: Int64 read FSpeed_Recv;
       property Speed_WSARecvResponse: Int64 read FSpeed_WSARecvResponse;
       property Speed_WSASendResponse: Int64 read FSpeed_WSASendResponse;
   
  
positive.code: 
  
    FSpeed_WSARecvResponse := Trunc((self.FResponseWSARecvCounter - FLastSpeed_WSARecvResponse) / lvSec);
  
  end;
  
  procedure TIocpDataMonitor.SpeedCalcuStart;
  
negative.code: 
      FSpeed_WSASendResponse: Int64;
      FSpeed_WSARecvResponse: Int64;
      FSpeed_Recv:Int64;
  
      procedure incSentSize(pvSize:Cardinal);
      procedure incPostWSASendSize(pvSize:Cardinal);
  