anchor.diff:      // ¼ʼʱ_
       FLastSpeed_WSASendResponse: Int64;
       FLastSpeed_WSARecvResponse: Int64;
  +    FLastSpeed_RecvSize:Int64;
   
       FContextCreateCounter:Integer;
       FContextOutCounter:Integer;
  
positive.code:     property SendRequestOutCounter: Integer read FSendRequestOutCounter;
      property SendRequestReturnCounter: Integer read FSendRequestReturnCounter;
      property SentSize: Int64 read FSentSize;
      property Speed_WSARecvResponse: Int64 read FSpeed_WSARecvResponse;
      property Speed_WSASendResponse: Int64 read FSpeed_WSASendResponse;
  
  
negative.code: 
  
    FSpeed_WSARecvResponse := Trunc((self.FResponseWSARecvCounter - FLastSpeed_WSARecvResponse) / lvSec);
    FSpeed_Recv := Trunc((self.FRecvSize - FLastSpeed_RecvSize) / lvSec);
  end;
  
  procedure TIocpDataMonitor.SpeedCalcuStart;
  