4747         else if (Gear^.Radius > 1) then

  4747         else if (Gear^.Radius > 1) then

  4748             begin

  4748             begin

  4749             if (Gear^.Health <= (initHealth div 6)) then

  4749             if (Gear^.Health <= (initHealth div 6)) then

  4750                 dec(Gear^.Radius)

  4750                 dec(Gear^.Radius)

  4751             end;

  4751             end;

  4753     until (Gear^.Health <= 0);

  4752     until (Gear^.Health <= 0);

  4754 

  4753 

  4755     DeleteGear(Gear);

  4754     DeleteGear(Gear);

  4756     AfterAttack;

  4755     AfterAttack;

  4757 end;

  4756 end;