483       begin

   483       begin

   484       CheckHHDamage(Gear);

   484       CheckHHDamage(Gear);

   485       Gear^.dY:= _0;

   485       Gear^.dY:= _0;

   486       Gear^.Y:= Gear^.Y + _1

   486       Gear^.Y:= Gear^.Y + _1

   487       end;

   487       end;

   489    end

   490    end

   490 end;

   491 end;

   491 

   492 

   492 procedure doStepHedgehogDriven(Gear: PGear);

   493 procedure doStepHedgehogDriven(Gear: PGear);

   493 var t: PGear;

   494 var t: PGear;