anchor.diff:          if Which = HRefSy then
           begin
             FoundHRef := True;
  -          if InHref then
  -            DoAEnd;
             InHref := True;
             if Attributes.Find(TargetSy, T) then
               CurrentUrlTarget.Assign(Name, T.Name, Attributes, PropStack.SIndex)
  
positive.code:     T: TAttribute;
      Prop: TProperties;
    begin
      FoundHRef := False;
      Link := '';
      for I := 0 to Attributes.Count - 1 do
  
negative.code:     CharCount: Integer;
  
      Sy: TElemSymb;
      IsXhtmlEndSy: Boolean; // current symbol is an xhtml combined start/end tag like <tag [attr="value" ...] />
      Attributes: TAttributeList;
  
      BaseFontSize: Integer;
  