anchor.diff:      property ConnectTimeout: Integer read GetConnectTimeout write SetConnectTimeout;
       property ReadTimeout: Integer read GetReadTimeout write SetReadTimeout;
       property OnError: TMARSClientErrorEvent read FOnError write FOnError;
  +    property ProtocolVersion: TIdHTTPProtocolVersion read GetProtocolVersion write SetProtocolVersion;
     end;
   
   function TMARSHttpVerbToString(const AVerb: TMARSHttpVerb): string;
  
positive.code: procedure TMARSClient.SetConnectTimeout(const Value: Integer);
  begin
    FHttpClient.ConnectTimeout := Value;
  end;
  
  procedure TMARSClient.SetReadTimeout(const Value: Integer);
  
negative.code:       LClient.Free;
        raise;
      end;
  end;
  
  function TMARSClient.GetProtocolVersion: TIdHTTPProtocolVersion;
  begin
    Result := FHttpClient.ProtocolVersion;
  end;
  
  class function TMARSClient.GetStream(const AEngineURL, AAppName,
  