Задержка выполнения программы

[hottabych23]

Программа работает правильно но я использую задержку в программе sleep и memo не отображает лог работы программы, только в конце работы выводит все строчки. Как алтернативно можно задержать программу? Может както Таймером?

[Terran]

Можете использовать такой вариант:

Procedure DelaySt(Ms: Longint);
Var
TheTime: LongInt;
Begin
TheTime:=GetTickCount + Ms;
While GetTickCount < TheTime Do
Application.ProcessMessages;
End;

Работает так же как и Sleep, но прога не повисает.

[hottabych23]

Спасибо. Помогло.

[Ntlegend]

а может стоит посмотреть в сторону многопоточности??

p.s. Зачем создавать кучу тем??