diff -r cbee69165c6a -r 833c0f32e326 hedgewars/uVisualGears.pas
--- 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