anchor.diff:  {$ifend}
   {$endif}
   
  +     PFLREParallelLock=^TFLREParallelLock;
  +     TFLREParallelLock=longint;
  +
        TFLRE=class;
   
        PFLREFlag=^TFLREFlag;
  
positive.code:  NamedGroupStringList.Free;
   NamedGroupStringIntegerPairHashMap.Free;
  
   ThreadLocalStorageInstanceManagerCriticalSection.Free;
  
   CriticalSection.Free;
   
   RangeLow:='';
   RangeHigh:='';
  
  
negative.code:    result:=PrefilterRootNode.SQLExpression(Field);
    end;
   finally
    ParallelLockLeave(@ParallelLock);
   end;
   if length(result)=0 then begin
    result:='('+Field+' LIKE "%")';
  