rtl: TFormatSettings class constructor

packages/rtl/sysutils.pas

@@ -463,6 +463,7 @@ type
     procedure SetTimePMString(const Value: string);
     procedure SetTimeSeparator(const Value: char);
   public
+    class constructor Init;
     Property ShortMonthNames : TMonthNames Read GetShortMonthNames Write SetShortMonthNames;
     Property LongMonthNames : TMonthNames Read GetLongMonthNames Write SetLongMonthNames;
     Property ShortDayNames : TDayNames Read GetShortDayNames Write SetShortDayNames;
@@ -4146,6 +4147,11 @@ begin
   SysUtils.TimeSeparator := Value;
 end;
 
+class constructor TFormatSettings.Init;
+begin
+  FormatSettings := TFormatSettings.Create;
+end;
+
 { ---------------------------------------------------------------------
   FileNames
   ---------------------------------------------------------------------}
@@ -4404,9 +4410,5 @@ begin
     Result := '';
 end;
 
-
-initialization
-  FormatSettings := TFormatSettings.Create;
-
 end.