anchor.diff:  procedure THttpConnectionIndy.Post(AUrl: string; AContent, AResponse: TStream);
   var
     retryMode: THTTPRetryMode;
  +  temp: TStringStream;
   begin
     try
       FIdHttp.Post(AUrl, AContent, AResponse);
     except
       on E: EIdHTTPProtocolException do
       begin
  -      retryMode := hrmRaise;
  -      if assigned(OnError) then
  -        OnError(e.Message, e.ErrorMessage, e.ErrorCode, retryMode);
  -      if retryMode = hrmRaise then
  -        raise EHTTPError.Create(e.Message, e.ErrorMessage, e.ErrorCode)
  -      else if retryMode = hrmRetry then
  -        Post(AUrl, AContent, AResponse);
  +      if Length(E.ErrorMessage) > 0 then
  +      begin
  +        temp := TStringStream.Create(E.ErrorMessage);
  +        AResponse.CopyFrom(temp, temp.Size);
  +        temp.Free;
  +      end;
       end;
       on E: EIdSocketError do
       begin
  
positive.code:   end;
  end;
  
  procedure THttpConnectionIndy.Delete(AUrl: string; AContent: TStream);
  procedure THttpConnectionIndy.Delete(AUrl: string; AContent, AResponse: TStream);
  var
    retryMode: THTTPRetryMode;
  begin
    try
      FIdHttp.Request.Source := AContent;
  
negative.code: procedure THttpConnectionIndy.Patch(AUrl: string; AContent, AResponse: TStream);
  var
    retryMode: THTTPRetryMode;
    temp: TStringStream;
  begin
    try
      FIdHttp.Patch(AUrl, AContent, AResponse);
    except
      on E: EIdHTTPProtocolException do
      begin
        if Length(E.ErrorMessage) > 0 then
        begin
          temp := TStringStream.Create(E.ErrorMessage);
          AResponse.CopyFrom(temp, temp.Size);
          temp.Free;
        end;
      end;
      on E: EIdSocketError do
      begin
  