anchor.diff:            AddCustomHeader(Context, 'Location', SockString(
               FormatUTF8('http%://%%',
                 [HTTPS[Context.UseSSL], Host, PathLowerCased])));
  -          Result := HTML_MOVEDPERMANENTLY;
  +          Result := HTTP_MOVEDPERMANENTLY;
             Exit;
           end;
         end;
  
positive.code:     begin
        AddCustomHeader(Context, 'Location', SockString(
          FormatUTF8('https://%%', [Host, Path])));
        Result := HTML_MOVEDPERMANENTLY;
        Exit;
      end;
    end;
  
negative.code:     if not IsContentModified(Context, Asset, bpoEnableCacheByETag in LOptions,
        bpoEnableCacheByLastModified in LOptions) then
      begin
        Result := HTTP_NOTMODIFIED;
        Exit;
      end;
      ContentType := ContentTypeWithoutCharset(Asset.ContentType);
      Context.OutContentType := Asset.ContentType;
      Context.OutContent := Asset.Content;
      Result := HTTP_SUCCESS;
    end else begin
      Result := inherited Request(Context);
      ContentType := ContentTypeWithoutCharset(Context.OutContentType);
    end;
  
    if ((Result = HTTP_BADREQUEST) and (bpoDelegateBadRequestTo404 in LOptions)) or
      ((Result = HTTP_FORBIDDEN) and (bpoDelegateForbiddenTo404 in LOptions)) or
      ((Result = HTTP_NOTFOUND) and (bpoDelegateNotFoundTo404 in LOptions)) or
      ((bpoDelegateBlocked in LOptions) and
        FastInArray(Ext, FFileTypesBlockedArray)) then
    begin
  