--- a/hedgewars/uLocale.pas	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/uLocale.pas	Sat Jan 27 14:18:33 2007 +0000
@@ -37,7 +37,7 @@
 procedure LoadLocale(FileName: string);
 var s: shortstring;
     f: textfile;
-    a, b, c: integer;
+    a, b, c: LongInt;
 begin
 {$I-}
 Assign(f, FileName);
@@ -66,7 +66,7 @@
 end;
 
 function Format(fmt: shortstring; var arg: shortstring): shortstring;
-var i: integer;
+var i: LongInt;
 begin
 i:= Pos('%1', fmt);
 if i = 0 then Format:= fmt