PowerTimer

  dec(time);
  LabAmmo.caption := inttostr(time);
        if (time <> 0)
        then begin
        numammo := true;
        end
        else begin
        numammo := false;
        LabAmmo.caption := 'XX';
        time := 6;
        timpowerup.enabled := false;
        end;