496     DeleteVisualGear(Gear)

   496     DeleteVisualGear(Gear)

   497 else

   497 else

   498     begin

   498     begin

   499     dec(Gear^.Timer, Steps);

   499     dec(Gear^.Timer, Steps);

   500     Gear^.Y:= Gear^.Y + Gear^.dY * Steps;

   500     Gear^.Y:= Gear^.Y + Gear^.dY * Steps;

   501     end;

   502     end;

   502 end;

   503 end;

   503 

   504 

   504 procedure doStepHealthTagWorkUnderWater(Gear: PVisualGear; Steps: Longword);

   505 procedure doStepHealthTagWorkUnderWater(Gear: PVisualGear; Steps: Longword);

   505 begin

   506 begin