anchor.diff:    finally
       if not FActive then
       begin
  -      FRawSocket.Close(False);    
  -    end;                      
  +      FRawSocket.Close(False);
  +    end;
     end;
   end;
   
  
positive.code:   inherited Create(AOwner);
    FRawSocket := TRawSocket.Create;
    FReadTimeOut := 30000;
  end;
  
  destructor TDiocpBlockTcpClient.Destroy;
  
negative.code: 
  
      /// <summary>
      ///   ͳʱ unit ms
      ///   Ĭ30(30000ms)
      /// </summary>
      property ReadTimeOut: Integer read FReadTimeOut write FReadTimeOut;
  
      /// <summary>
      ///   ͳʱ unit ms
      ///   Ĭ30(30000ms)
      /// </summary>
      property SendTimeOut: Integer read FSendTimeOut write FSendTimeOut;
  
    end;
  
  implementation
  