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:           GetCh;
          end;
  
          'a'..'z', 'A'..'Z', '_':
          begin
            // faster than: Compare := Compare + LCh;
            SetLength(Compare, Length(Compare) + 1);
            Compare[Length(Compare)] := LCh;
            GetCh;
          end;
  
          '0'..'9':
          begin
            // faster than: Compare := Compare + LCh;
            SetLength(Compare, Length(Compare) + 1);
  
negative.code:     NewBlock.MargArray[MarginBottom] := 0; {open paragraph followed by table, no space}
    SectionList.Add(Section, TagIndex);
    Section := nil;
    if InHref then
      DoAEnd;
    PopAProp(PSy);
    SectionList := NewBlock.OwnerCell;
    if Sy = PEndSy then
  