anchor.diff:      property HostName: string read FHostName;
       property PortNumber: Integer read FPortNumber;
       property Path: string read FPath;
  +    property Document: string read FDocument;
       property PathTokens: TArray<string> read FPathTokens;
       property Query: string read FQuery;
       property QueryTokens: TDictionary<string, string> read FQueryTokens;
  
positive.code:   private
      FURL: string;
      FPath: string;
      FPortNumber: Integer;
      FProtocol: string;
      FQuery: string;
  
negative.code:     FPassword := LURI.Password;
      FHostName := LURI.Host;
      FPortNumber := StrToIntDef(LURI.Port, LDefaultPortNumber);
      FDocument := LURI.Document;
      FPath := LURI.Path + LURI.Document;
      FPathTokens := ParsePathTokens(FPath);
      FQuery := LURI.Params;
  