hedgewars/uVisualGears.pas
changeset 3836 833c0f32e326
parent 3764 eb91c02f2d84
child 3909 4ba25a3d15af
--- 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