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