Пример реализации своего аналога sleep Иногда в потоках sleep становится невероятным злом, вот такие кривые костыли помогают. PS возможны ошибки так как писал из головы а на делфе практически не пишу уже.
Эта строчка - зло: Код: while (settime<GetTickcount) do continue; Будет сильно грузить процессор, лучше уже так: Код: while (settime<GetTickcount) do begin sleep(25); end;
Лучше таки собітие на таймер ставь. В крайнем случае sleep(1000) но прога тупо повисает на данный промежуток времени. Лечится этим: Application.Processmessages