diff --git a/lcl/include/spinedit.inc b/lcl/include/spinedit.inc
index 9108d704cb..ccbe9db88f 100644
--- a/lcl/include/spinedit.inc
+++ b/lcl/include/spinedit.inc
@@ -43,6 +43,12 @@ begin
   inherited Change;
 end;
 
+procedure TCustomFloatSpinEdit.EditingDone;
+begin
+  UpdateControl;
+  inherited EditingDone;
+end;
+
 function TCustomFloatSpinEdit.RealGetText: TCaption;
 begin
   if HandleAllocated then
diff --git a/lcl/spin.pp b/lcl/spin.pp
index b60f6d362a..a5de5033eb 100644
--- a/lcl/spin.pp
+++ b/lcl/spin.pp
@@ -53,6 +53,7 @@ type
   protected
     class procedure WSRegisterClass; override;
     procedure Change; override;
+    procedure EditingDone; override;
     function  RealGetText: TCaption; override;
     procedure RealSetText(const AValue: TCaption); override;
     procedure TextChanged; override;