anchor.diff:    begin
       // go to end of string/eol
       while ((readNext <> '`') and (not (readCurr = #10))) do (*!*);
  -    if (readCurr = #10) then fRange := rkString2
  +    if (readCurr = #10) then
  +    begin
  +      fRange := rkString2;
  +      if fkStrings in fFoldKinds then
  +        StartCodeFoldBlock(nil);
  +    end
       else
       begin
         readNext;
  
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:   begin
      // go to end of string/eol
      while ((readNext <> '}') and (not (readCurr = #10))) do (*!*);
      if (readCurr = #10) then
      begin
        fRange := rkTokString;
        if fkStrings in fFoldKinds then
          StartCodeFoldBlock(nil);
      end
      else readNext;
      fTokKind := tkStrng;
      exit;
    end else Dec(fTokStop);
  