--- a/hedgewars/uVisualGears.pas	Mon Sep 06 20:40:58 2010 +0100
+++ b/hedgewars/uVisualGears.pas	Mon Sep 06 16:23:47 2010 -0400
@@ -386,7 +386,6 @@
 
 procedure DrawVisualGears(Layer: LongWord);
 var Gear: PVisualGear;
-    i: LongInt;
 begin
 Gear:= VisualGearsList;
 case Layer of