如何在程序中强行等待一段时间?

[7thstar]

我在一个循环中想没执行一次循环就想让程序等待一段固定的时间在继续执行,各位大侠不吝赐教

[WWWWA]

sleep(1000)

[yyfeng76]

procedure TForm1.Button1Click(Sender: TObject);
var
I : integer;
i_from,i_to : Cardinal;
begin
for I:= 1 to 1000 do
begin
i_from := GetTickCount();
sleep(10000);
i_to := GetTickCount();
showMessage(IntToStr(i_to-i_from));
end;
end;

[7thstar]

谢谢楼上的~~~非常感谢

[letgolxh]

sleep(1000)
1000为1000毫秒

[ruixi]

Sleep(1000);