anchor.diff:  end;
   
   function TMARSHttpRequestIndy.GetQueryFields: TStrings;
  -begin
  -  raise Exception.Create('TMARSHttpRequestIndy.GetQueryFields: not yet implemented');
  +//const
  +//  ContentTypeFormUrlencoded = 'application/x-www-form-urlencoded';
  +begin
  +  if not Assigned(FQueryFields) then
  +  begin
  +    FQueryFields := TStringList.Create;
  +    ParseParams(FQueryFields, FRequestInfo.QueryParams);
  +  end;
  +  Result := FQueryFields;
   end;
   
   function TMARSHttpRequestIndy.GetServerPort: Integer;
  
positive.code:     function DoGetFieldByName(const Name: string): string; override;
    public
      constructor Create(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo);
    end;
  
  var
  
negative.code: 
  function TMARSHttpRequestIndy.GetContentFields: TStrings;
  begin
    if not Assigned(FContentFields) then
    begin
      FContentFields := TStringList.Create;
      ParseParams(FContentFields, FRequestInfo.FormParams);
    end;
    Result := FContentFields;
  end;
  
  function TMARSHttpRequestIndy.GetContentLength: Integer;
  