delphi里有没有延时的函数?(30分)

如果不需要在延时中相应用户输入, 用sleep最方便, 否则:
var
lTime: DWORD;

lTime := GetTickCount;
while((GetTickCount - lTime) / 1000 < 3)do
Application.ProcessMessage;
// 延时三秒

多人接受答案了。