anchor.diff:      FResponse: TMemoryStream;
     protected
       procedure AfterPOST(const AContent: TStream); override;
  +    procedure AfterPUT(const AContent: TStream); override;
       function GetResponseAsString: string; virtual;
     public
       constructor Create(AOwner: TComponent); override;
  
positive.code:       const ABeforeExecute: TProc<TMemoryStream>{$ifdef DelphiXE2_UP} = nil{$endif};
        const AAfterExecute: TMARSClientResponseProc{$ifdef DelphiXE2_UP} = nil{$endif};
        const AOnException: TMARSClientExecptionProc{$ifdef DelphiXE2_UP} = nil{$endif}); overload; virtual;
    published
      property FormData: TArray<TFormParam> read FFormData;
      property Response: TMemoryStream read FResponse;
      property ResponseAsString: string read GetResponseAsString;
    end;
  
negative.code:   FResponse.CopyFrom(AContent, 0);
  end;
  
  procedure TMARSClientResourceFormData.AfterPUT(const AContent: TStream);
  begin
    inherited;
    AContent.Position := 0;
    FResponse.Size := 0; // clear
    FResponse.CopyFrom(AContent, 0);
  end;
  
  constructor TMARSClientResourceFormData.Create(AOwner: TComponent);
  begin
    inherited;
  