anchor.diff:      if (readCurr = '"') then
       begin
         fTokKind := tkStrng;
  +      if fkStrings in fFoldKinds then
  +        EndCodeFoldBlock;
         fRange := rkNone;
         readNext;
         // check postfix
  
positive.code:           (readPrevPrev = '\') then
              break;
      end;
      if (readCurr = #10) then fRange := rkString1
      else
      begin
        readNext;
  
negative.code:     if (readCurr = '`') then
      begin
        fTokKind := tkStrng;
        if fkStrings in fFoldKinds then
          EndCodeFoldBlock;
        fRange := rkNone;
        readNext;
        // check postfix
  