* workaround for bug in GetThreadLocale on some W7, resolves #18574

git-svn-id: trunk@17331 -

rtl/win/sysutils.pp

@@ -824,6 +824,8 @@ var
   DefaultCustomLocaleID : LCID;   // typedef DWORD LCID;
   DefaultCustomLanguageID : Word; // typedef WORD LANGID;
 begin
+  /// workaround for Windows 7 bug, see bug report #18574
+  SetThreadLocale(GetUserDefaultLCID);
   InitInternationalGeneric;
   old8087CW:=Get8087CW;
   SysLocale.MBCS:=GetSystemMetrics(SM_DBCSENABLED)<>0;