anchor.diff:  begin
     FieldName := '';
     Value := TValue.Empty;
  +end;
  +
  +constructor TFormParam.Create(const AFieldName: string; const AValue: TValue);
  +begin
  +  Clear;
  +  FieldName := AFieldName;
  +  Value := AValue;
   end;
   
   constructor TFormParam.CreateFromRequest(const ARequest: TWebRequest;
  
positive.code:     procedure Clear;
      constructor CreateFromRequest(const ARequest: TWebRequest; const AFieldName: string); overload;
      constructor CreateFromRequest(const ARequest: TWebRequest; const AFileIndex: Integer); overload;
      function ToString: string;
    end;
  
  
negative.code:   begin
      LFile := ARequest.Files[AFileIndex];
  
      Create(LFile.FieldName, LFile.FileName, StreamToBytes(LFile.Stream), LFile.ContentType);
     end;
  end;
  
  