anchor.diff:      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;
  
positive.code:     end;
    end;
  
    CreateFromRequest(ARequest, LIndex);
  end;
  
  constructor TFormParamFile.CreateFromRequest(const ARequest: TWebRequest;
  
negative.code: {$endif}
    , StrUtils, DateUtils, Masks, ZLib, Zip, NetEncoding
  ;
  
  
  function StreamToBytes(const ASource: TStream): TBytes;
  begin
  