anchor.diff:  
           '<':
           begin
  +          Pos := Doc.Position;
             GetCh;
             case LCh of
               '!', '-':
  
positive.code: 
  var
    MayCloseCommment: Boolean;
  begin
    Self.Doc := Doc;
    Self.Styles := Styles;
  
negative.code:           else
              if not FromLink then
              begin
                Doc.Position := Pos;
                LCh := '<';
                break;
              end;
  