3885 procedure doStepDrillDrilling(Gear: PGear);

  3885 procedure doStepDrillDrilling(Gear: PGear);

  3886 var

  3886 var

  3887     t: PGearArray;

  3887     t: PGearArray;

  3888     tempColl: Word;

  3888     tempColl: Word;

  3889 begin

  3889 begin

  3890     AllInactive := false;

  3891     AllInactive := false;

  3891     if (Gear^.Timer > 0) and (Gear^.Timer mod 10 <> 0) then

  3892     if (Gear^.Timer > 0) and (Gear^.Timer mod 10 <> 0) then

  3892         begin

  3893         begin

  3893         dec(Gear^.Timer);

  3894         dec(Gear^.Timer);

  3894         exit;

  3895         exit;