--- a/hedgewars/uGears.pas	Sun Feb 04 22:26:13 2007 +0000
+++ b/hedgewars/uGears.pas	Mon Feb 05 19:20:56 2007 +0000
@@ -831,12 +831,13 @@
     y, sy: LongInt;
     ar: array[0..511] of TPoint;
     ar2: array[0..1023] of TPoint;
-    cnt, cnt2, delta: Longword;
+    cnt, cnt2: Longword;
+    delta: LongInt;
 begin
 delta:= 250;
 cnt2:= 0;
 repeat
-  x:= Left + GetRandom(Delta);
+  x:= Left + LongInt(GetRandom(Delta));
   repeat
      inc(x, Delta);
      cnt:= 0;