anchor.diff:    SysUtils, Classes, Generics.Collections
   
     , MARS.Client.Resource, MARS.Client.CustomResource, MARS.Client.Client
  -  , MARS.Client.Utils, MARS.Core.Utils
  +  , MARS.Client.Utils, MARS.Core.Utils, MARS.Core.JSON
   ;
   
   type
  
positive.code: var
    LJSON: TJSONValue;
  begin
    LJSON := StreamToJSONValue(Response);
    try
      Result := (LJSON as TJSONArray).ToArrayOfRecord<T>;
    finally
      LJSON.Free;
    end;
  end;
  
  procedure TMARSClientResourceFormData.PUT(
  
negative.code:       const AOnException: TMARSClientExecptionProc{$ifdef DelphiXE2_UP} = nil{$endif};
        const ASynchronize: Boolean = True); overload; virtual;
  
      function ResponseAsJSON: TJSONValue;
      function ResponseAs<T: record>: T;
      function ResponseAsArray<T: record>: TArray<T>;
    published
  