Delphi不让程序被挂起的等待方法,该如何处理

Delphi不让程序被挂起的等待方法
我的程序只有一个主进程，没有其他的线程，在程序里用sleep程序就会被挂起。多个程序一起sleep系统就完蛋了。。。所以要找个不让程序被挂起的等待方法，有办法吗？

[解决办法]
While X do
begin
Sleep(1);
Application.ProcessMessages();
end;

[解决办法]
var
dwTick : DWORD;
begin
......
iTick := GetTickCount();
while (GetTickCount() - iTick <= 等待的毫秒数) do Application.ProcessMessages;
......
end;