Зациклить секунду 100 раз - нормальное решение.А саму подпрограмму задержки 1 сек. можно переписать оптимальнее, подумай.
E-mail: info@telesys.ru