anchor.diff:  var
     st : TCommonMarkStyle;
   begin
  -  st := TCommonMarkStyle(style and $F);
  +  st := TCommonMarkStyle(style and $1F);
     case st of
       cmUnknown, cmText : Attributes.ForeColor := clBlack;
       cmEntity :
  
positive.code:   //   cmDelimiter : Maroon/bold
    //   cmCode : navy
    //   cmURL : maroon
    //
    // commonmark styler is slow; full parsing is required (though the parser is fastish)
  
  
negative.code:       Attributes.FontStyle := [fsBold];
        end;
      cmCode : Attributes.ForeColor := clNavy;
      cmDel : Attributes.ForeColor := clRed;
      cmURL : Attributes.ForeColor := clMaroon;
    end;
  end;
  