diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 82d71ae899..a3f6589900 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -260,7 +260,7 @@ var
   FS: TFormatSettings;
   MyDate: Extended;
 begin
-  FS := Default(TFormatSettings);
+  FillChar(FS, SizeOf(TFormatSettings), 0);
   FS.DecimalSeparator := '.';
   if TryStrToFloat(aValue, MyDate, FS) then
   begin