таймер

[nattaella]

у меня есть две процедуры, перерыв между которыми должен быть 2 секунды:
procedure 1;
sleep(2000);
procedure 2;

Сначала пробовала функцию sleep(2000); но он не задерживает, а блокирует работу программы. А таймер актуален только при повторении с каким-то интервалом какого-то участка кода. Что мне нужно сделать?

[volod3000]

Попробуйте так:

procedure 1;
Application.ProcessMessages;
sleep(2000);
procedure 2;

[Пепел Феникса]

разницы почти никакой, так как те две секунды поток всеравно блокирован.
http://programmersforum.ru/showpost....2&postcount=16
можно такое применить.

[Merkator]

Я делал проще: создавал 1 таймер.
Внутрь первой функции записывал timer1.enabled:=true;
А в самом таймере вызывал вторую функцию и отключал таймер.

[Silver_S]

procedure 1;
t:=GetTickCount();
while (GetTickCount-t)<2000 do
  Application.ProcessMessages;
procedure 2;