diff --git a/lcl/customdrawncontrols.pas b/lcl/customdrawncontrols.pas
index fdeb7088c3..55b50ee1d1 100644
--- a/lcl/customdrawncontrols.pas
+++ b/lcl/customdrawncontrols.pas
@@ -3063,7 +3063,7 @@ end;
 
 procedure TCDSpinEdit.DoChange;
 var
-  lValue: Extended;
+  lValue: Double;
 begin
   if SysUtils.TryStrToFloat(Caption, lValue) then FValue := lValue;
   DoUpdateUpDown;