anchor.diff:      function GetReadTimeout: Integer;
       procedure SetConnectTimeout(const Value: Integer);
       procedure SetReadTimeout(const Value: Integer);
  +    function GetProtocolVersion: TIdHTTPProtocolVersion;
  +    procedure SetProtocolVersion(const Value: TIdHTTPProtocolVersion);
     protected
       procedure EndorseAuthorization(const AAuthToken: string);
       procedure AssignTo(Dest: TPersistent); override;
  
positive.code: procedure TMARSClient.SetConnectTimeout(const Value: Integer);
  begin
    FHttpClient.ConnectTimeout := Value;
  end;
  
  procedure TMARSClient.SetReadTimeout(const Value: Integer);
  
negative.code:   LDestClient.ConnectTimeout := ConnectTimeout;
    LDestClient.ReadTimeout := ReadTimeout;
    LDestClient.OnError := OnError;
    LDestClient.ProtocolVersion := ProtocolVersion;
  end;
  
  constructor TMARSClient.Create(AOwner: TComponent);
  