anchor.diff:    public
       constructor Create(AOwner: TComponent); override;
       destructor Destroy; override;
  -
  -    procedure ApplyCustomHeaders(const AHeaders: TStrings); override;
   
       procedure Delete(const AURL: string; AContent, AResponse: TStream;
         const AAuthToken: string; const AAccept: string; const AContentType: string); override;
  
positive.code:     procedure SetReadTimeout(const Value: Integer); override;
  
      function CreateMultipartFormData(AFormData: TArray<TFormParam>): TMultipartFormData;
  
      procedure EndorseAuthorization; override;
      procedure CheckLastCmdSuccess; virtual;
  
negative.code:   end;
  end;
  
  function TMARSNetClient.CreateFormUrlEncoded(
    AFormUrlEncoded: TMARSParameters): TStrings;
  var
    LItem: TPair<string, TValue>;
    LList: TStringList;
  begin
    LList := TStringList.Create;
    try
      for LItem in AFormUrlEncoded do
        LList.AddPair(LItem.Key, LItem.Value.AsString);
      Result := LList;
    except
      LList.Free;
      raise;
    end;
  end;
  
  procedure TMARSNetClient.Get(const AURL: string; AResponseContent: TStream;
    const AAuthToken: string; const AAccept: string; const AContentType: string);
  begin
  