jvcl/run/JvValidators.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/jvcl/run/JvValidators.pas b/jvcl/run/JvValidators.pas
index 249d2f0..ae80c07 100644
--- a/jvcl/run/JvValidators.pas
+++ b/jvcl/run/JvValidators.pas
@@ -41,7 +41,7 @@ uses
   JclUnitVersioning,
   {$ENDIF UNITVERSIONING}
   Windows, SysUtils, Classes, Controls, Forms,
-  JvComponentBase, JvErrorIndicator;
+  JvComponentBase, JvErrorIndicator, JclPCRE;
 
 type
   EValidatorError = class(Exception);
@@ -618,9 +618,16 @@ end;
 procedure TJvRegularExpressionValidator.Validate;
 var
   R: string;
+  re : TJclAnsiRegEx;
 begin
   R := VarToStr(GetValidationPropertyValue);
-  Valid := (R = ValidationExpression) or MatchesMask(R, ValidationExpression);
+  Valid := (R = ValidationExpression);
+  if not Valid then
+  begin
+    re := TJclAnsiRegEx.Create;
+    re.Compile(ValidationExpression,False);
+    Valid := re.Match(R);
+  end;
 end;
 
 //=== { TJvCompareValidator } ================================================