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