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