--- oup/current/Code/Functions.pas	2007/01/11 22:45:20	74
+++ oup/current/Code/Functions.pas	2007/01/11 23:36:52	75
@@ -212,22 +212,25 @@ end;
 
 
 function FormatFileSize(size: LongWord): String;
+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
   begin
     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
     begin
       if size >= 1000 then
       begin
-        Result := FloatToStrF(size / 1024, ffFixed, 5, 1) + ' KB';
+        Result := FloatToStrF(size / 1024, ffFixed, 5, 1, floatformat) + ' KB';
       end
       else
       begin