anchor.diff:      if (readCurr = '"') then
       begin
         fTokKind := tkStrng;
  +      if fkStrings in fFoldKinds then
  +        EndCodeFoldBlock;
         fRange := rkNone;
         readNext;
         // check postfix
  
positive.code: 
    TRangeKind = (rkNone, rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, rkBlockDoc1, rkBlockDoc2, rkAsm);
  
    TFoldKind = (fkBrackets, fkComments1, fkComments2);
    TFoldKinds = set of TFoldKind;
  
  	TSynD2Syn = class (TSynCustomFoldHighlighter)
  
negative.code:     if (readCurr = '}') then
      begin
        fTokKind := tkStrng;
        if fkStrings in fFoldKinds then
          EndCodeFoldBlock;
        fRange := rkNone;
        readNext;
        exit;
  