756       begin

   756       begin

   757       AllInactive:= false;

   757       AllInactive:= false;

   758       if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false);

   758       if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false);

   759       if Gear^.Timer = 0 then

   759       if Gear^.Timer = 0 then

   760          begin

   760          begin

   761          doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

   762          doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

   762          DeleteGear(Gear)

   763          DeleteGear(Gear)

   763          end;

   764          end;

   764       dec(Gear^.Timer);

   765       dec(Gear^.Timer);

   765       end else // gsttmpFlag = 0

   766       end else // gsttmpFlag = 0