如何延时1秒?

Question

在DELPHI中,有没有延时1秒的函数?  像BASIC 中的SLEEP(1)之类的.
如没有,如何使程序延时1秒????1秒钟后接着执行?
用FOR语句有问题.

Answer 1

要简单就用Sleep(1000),
要烦就用Timmer或GetTickCount，^_^

Answer 2

sleep(1000)是一个好办法,但是它会使程序无法响应.
可以用如下的函数,单位毫秒:
procedure Delay(MSecs: DWORD);
var
  BeginTime: DWORD;
begin
  BeginTime := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - BeginTime >= MSecs;
end;Delay(1000);