--- a/hedgewars/hwengine.dpr	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/hwengine.dpr	Sat Jan 27 14:18:33 2007 +0000
@@ -62,7 +62,7 @@
 procedure OnDestroy; forward;
 
 ////////////////////////////////
-procedure DoTimer(Lag: integer);
+procedure DoTimer(Lag: LongInt);
 var s: string;
 begin
 case GameState of
@@ -158,9 +158,9 @@
 
 ////////////////////
 procedure GetParams;
-var c: integer;
+var c: LongInt;
 {$IFDEF DEBUGFILE}
-    i: integer;
+    i: LongInt;
 {$ENDIF}
     p: TPathType;
 begin