diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index b105df3..77ab90e 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -20,6 +20,12 @@ uses
 {$R *.res}
 
 begin
+  {Hay un problema con Windows 7 x64 y Delphi.
+   Windows no informa bien de la configuración regional.}
+
+  SetThreadLocale(LOCALE_USER_DEFAULT);
+  GetFormatSettings;
+
   Application.Initialize;
 
   //ReportMemoryLeaksOnShutdown := True;