--- a/hedgewars/uVisualGears.pas	Wed Nov 17 16:31:30 2010 +0300
+++ b/hedgewars/uVisualGears.pas	Wed Nov 17 17:22:36 2010 +0300
@@ -20,7 +20,7 @@
 
 unit uVisualGears;
 interface
-uses uConsts, uFloat, Math, GLunit;
+uses uConsts, uFloat, Math, GLunit, uTypes;
 
 type PVisualGear = ^TVisualGear;
     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);