У меня задержка...;)

[Баламут]

Вернее хочу, чтобы она была... В общем в цикле после каждой итерации нужно организовать паузу допустим на 0.5 сек. Sleep не подходит. Делать
так
for i := 0 to 20 do
begin
....
for j := 1 to 25000000 do Application.ProcessMessages;
end;

тоже не то. Уж больно от скорости камня зависимо. Можно, конечно, через таймер, но как-то не очень красиво получается... В общем может у кого есть идеи?

[Aleksandr]

procedure Delay(ms : longint);
var
TheTime : LongInt;
begin
TheTime := GetTickCount + ms;

while GetTickCount < TheTime do
Application.ProcessMessages;

end;


Где надо вызываешь процедуру Delay.
Delay(2000);

[Баламут]

О, точно! Спасибо