Index: oup/current/Code/Functions.pas
===================================================================
--- oup/current/Code/Functions.pas	(revision 74)
+++ oup/current/Code/Functions.pas	(revision 75)
@@ -213,8 +213,11 @@
 
 function FormatFileSize(size: LongWord): String;
-begin
+var
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   if size >= 1000 * 1024 * 1024 then
   begin
-    Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1) + ' GB';
+    Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' GB';
   end
   else
@@ -222,5 +225,5 @@
     if size >= 1000 * 1024 then
     begin
-      Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1) + ' MB';
+      Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' MB';
     end
     else
@@ -228,5 +231,5 @@
       if size >= 1000 then
       begin
-        Result := FloatToStrF(size / 1024, ffFixed, 5, 1) + ' KB';
+        Result := FloatToStrF(size / 1024, ffFixed, 5, 1, floatformat) + ' KB';
       end
       else