//AMMO SWITCH
  //check if NOT finished
if time <> 0
then begin
     //flash the label
     LabAmmo.Visible:= not(labammo.visible);
     //make it flash faster and faster until time runs out
     if timSwitch.Interval > 100 then
     timSwitch.interval := timSwitch.interval - 100;
     end