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