diff --git a/components/lazutils/masks.pas b/components/lazutils/masks.pas
index 456ad3dbfa..8cfb1f65fa 100644
--- a/components/lazutils/masks.pas
+++ b/components/lazutils/masks.pas
@@ -152,6 +152,7 @@ type
 
   TMaskBase = class
   private
+    procedure SetAutoReverseRange(AValue: Boolean);
     procedure SetMaskEscapeChar(AValue: Char);
     procedure SetMaskOpCodesAllowed(AValue: TMaskOpCodes);
   protected
@@ -210,7 +211,7 @@ type
     constructor Create(aOptions: TMaskOptions);
   public
     property CaseSensitive: Boolean read fCaseSensitive;
-    property AutoReverseRange: Boolean read fAutoReverseRange write fAutoReverseRange;
+    property AutoReverseRange: Boolean read fAutoReverseRange write SetAutoReverseRange;
     property EscapeChar: Char read fMaskEscapeChar write SetMaskEscapeChar;
     property MaskOpCodes: TMaskOpCodes read fMaskOpcodesAllowed write SetMaskOpCodesAllowed;
   end;
@@ -575,6 +576,13 @@ end;
 
 { TMaskBase }
 
+procedure TMaskBase.SetAutoReverseRange(AValue: Boolean);
+begin
+  if fAutoReverseRange = AValue then Exit;
+  fAutoReverseRange := AValue;
+  fMaskIsCompiled := False;
+end;
+
 procedure TMaskBase.SetMaskEscapeChar(AValue: Char);
 begin
   if fMaskEscapeChar=AValue then Exit;