diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp
index 8db9b6d057..8cc8109f96 100644
--- a/lcl/maskedit.pp
+++ b/lcl/maskedit.pp
@@ -388,7 +388,7 @@ const
     property SpaceChar;
   end;
 
-function FormatMaskText(const AEditMask: string; const Value: string ): string;
+function FormatMaskText(const AEditMask: string; const Value: string; EnableSets: Boolean = False): string;
 procedure SplitEditMask(AEditMask: String; out AMaskPart: String; out AMaskSave: Boolean; out ASpaceChar: Char);
 
 procedure Register;
@@ -585,12 +585,13 @@ end;
 
 
 
-function FormatMaskText(const AEditMask: string; const Value: string): string;
+function FormatMaskText(const AEditMask: string; const Value: string; EnableSets: Boolean): string;
 var
   CME: TCustomMaskEdit;
 begin
   CME := TCustomMaskEdit.Create(nil);
   try
+    CME.EnableSets := EnableSets;
     CME.EditMask := AEditMask;
     if CME.IsMasked then
     begin