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