anchor.diff:  
     if FQuery <> '' then
     begin
  -    LQuery := URLDecode(FQuery);
  +    //LQuery := URLDecode(FQuery);
  +    LQuery := FQuery;
       while StartsStr(LQuery, URL_QUERY_PREFIX) do
         LQuery := RightStr(LQuery, Length(LQuery) - Length(URL_QUERY_PREFIX));
   
  
positive.code: 
  uses
      StrUtils
  
    , MARS.Core.Utils
    , MARS.Core.Exceptions
    , IdURI
  
negative.code: 
  class function TMARSURL.URLEncode(const AString: string): string;
  begin
    Result := TNetEncoding.URL.EncodeQuery(AString, [Ord('&')]);
    //Result := TIdURI.PathEncode(AString);
  end;
  
  class function TMARSURL.URLEncode(const AStrings: TArray<string>): TArray<string>;
  