anchor.diff:      end;
     end;
   
  -  CreateFromRequest(ARequest, LIndex);
  +  CreateFromRequest(ARequest, LFileIndex);
   end;
   
   constructor TFormParamFile.CreateFromRequest(const ARequest: TWebRequest;
  
positive.code:     Result := FieldName + '=' + Value.ToString;
  end;
  
  end.
  
negative.code:     function ToString: string;
    end;
  
    TDump = class
    public
      class procedure Request(const ARequest: TWebRequest; const AFileName: string); overload; virtual;
    end;
  
  
    function CreateCompactGuidStr: string;
  
    function ObjectToJSON(const AObject: TObject): TJSONObject;
  