diff --git a/packages/fcl-base/src/maskutils.pp b/packages/fcl-base/src/maskutils.pp
index a3675c883e..a2e8878541 100644
--- a/packages/fcl-base/src/maskutils.pp
+++ b/packages/fcl-base/src/maskutils.pp
@@ -27,7 +27,7 @@ unit MaskUtils;
 interface
 
 uses
-  Classes, SysUtils;
+  SysUtils;
 
 
 function FormatMaskText(const EditMask: string; const AValue: string): string;
@@ -107,7 +107,6 @@ type
 implementation
 
 resourcestring
-  exInvalidMaskValue = 'FormatMaskText function failed!';
   exValidationFailed = 'TMaskUtils.ValidateInput failed.';
 
 const