anchor.diff:  
     FHttpClient.Accept := AAccept;
     FHttpClient.ContentType := AContentType;
  -  LFormUrlEncoded := AFormUrlEncoded.AsStrings;
  +  LFormUrlEncoded := CreateFormUrlEncoded(AFormUrlEncoded);
     try
       FLastResponse := FHttpClient.Post(AURL, LFormUrlEncoded, AResponse);
       CheckLastCmdSuccess;
  
positive.code: ;
  
  { TMARSNetClient }
  
  procedure TMARSNetClient.ApplyCustomHeaders(const AHeaders: TStrings);
  var
    LIndex: Integer;
  begin
    inherited;
    for LIndex := 0 to AHeaders.Count-1 do
      HttpClient.CustomHeaders[AHeaders.Names[LIndex]] := AHeaders.ValueFromIndex[LIndex];
  end;
  
  procedure TMARSNetClient.ApplyProxyConfig;
  begin
  
negative.code:     procedure SetReadTimeout(const Value: Integer); override;
  
      function CreateMultipartFormData(AFormData: TArray<TFormParam>): TMultipartFormData;
      function CreateFormUrlEncoded(AFormUrlEncoded: TMARSParameters): TStrings;
  
  
      procedure EndorseAuthorization; override;
      procedure CheckLastCmdSuccess; virtual;
  