diff --git a/components/lazutils/masks.pas b/components/lazutils/masks.pas
index e2c015a4f3..27af2ee85b 100644
--- a/components/lazutils/masks.pas
+++ b/components/lazutils/masks.pas
@@ -153,6 +153,7 @@ type
   TMaskBase = class
   private
     procedure SetMaskEscapeChar(AValue: Char);
+    procedure SetMaskOpCodesAllowed(AValue: TMaskOpCodes);
   protected
     // Literal = It must match
     // Range = Match any char in the range
@@ -211,6 +212,7 @@ type
     property CaseSensitive: Boolean read fCaseSensitive;
     property AutoReverseRange: Boolean read fAutoReverseRange write fAutoReverseRange;
     property EscapeChar: Char read fMaskEscapeChar write SetMaskEscapeChar;
+    property MaskOpCodes: TMaskOpCodes read fMaskOpcodesAllowed write SetMaskOpCodesAllowed;
   end;
 
   { TMaskUTF8 }
@@ -564,6 +566,13 @@ begin
   fMaskEscapeChar:=AValue;
 end;
 
+procedure TMaskBase.SetMaskOpCodesAllowed(AValue: TMaskOpCodes);
+begin
+  if fMaskOpcodesAllowed = AValue then Exit;
+  fMaskOpcodesAllowed := AValue;
+  fMaskIsCompiled := False;
+end;
+
 procedure TMaskBase.Add(aLength: integer; aData: PBYTE);
 var
   lCounter: integer;