Delay kao komanda ne postoji, ali postoji mnogo nacina da se odradi stvar koja ti treba. Evo ti nekoliko:
1. Postavis tajmer na 1000 i cekas 9. iteraciju
2. kombinacija GetTickCount, Appl...Proc..Mess.. i Sleep (otprilike ovako):
Code:
procedure cekaj(intvl : cardinal);
var start: cardinal;
begin
start := gettickcount;
while not ((gettickcount - start) = intvl) do //u milisekundama
begin
Application.ProcessMessages;
Sleep(250); //opet u milisekundama
end;
end;
3. slicno kao malopre samo sto pozivas Now za trenutno vreme umesto API gettickcount
itd... mislim da je dovoljno :)
Don't try to impress me... I'm good !