Программа работает при использовании компонента MMtimer. Если заменить компонент на Timer или Sleep или DeferredEvent программа не работает. В выложенном примере компонент Sleep вызывает переполнение стека.