anchor.diff:    private
       FURL: string;
       FPath: string;
  +    FDocument: string;
       FPortNumber: Integer;
       FProtocol: string;
       FQuery: string;
  
positive.code:     FPassword := LURI.Password;
      FHostName := LURI.Host;
      FPortNumber := StrToIntDef(LURI.Port, LDefaultPortNumber);
      FPath := LURI.Path + LURI.Document;
      FPathTokens := ParsePathTokens(FPath);
      FQuery := LURI.Params;
  
negative.code:     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;
  