diff --git a/lcl/include/spinedit.inc b/lcl/include/spinedit.inc
index ed46c01d96..7ac6ec0905 100644
--- a/lcl/include/spinedit.inc
+++ b/lcl/include/spinedit.inc
@@ -142,6 +142,8 @@ begin
   FUpdatePending := True;
   UpdateControl;
 
+  Modified := False;
+
   if not HandleAllocated
   and ([csLoading, csDestroying] * ComponentState = [])
   and not SameValue(OldValue, FValue) then