diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp
index 9f66dbac0f..96aad07f3d 100644
--- a/lcl/maskedit.pp
+++ b/lcl/maskedit.pp
@@ -1029,6 +1029,9 @@ begin
   begin
     Result := False;
   end;
+  // if NewText = old Text the next statement will do nothing,
+  // and NO mask will appear, so Clear first ...
+  Clear;
   Text := NewText;
 end;