程序退出等待的问题(100分)

我想在程序退出前让系统等待5秒，而不是用sleep(5000)来让程序休息，还能用什么函数或<br>方法实现。

Form的OnClose事件或OnDestroy事件(看需要)，加入这段代码：<br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>var CloseTime: Cardinal;<br>begin<br>&nbsp; CloseTime := GetTickCount + 5000;<br>&nbsp; while GetTickCount &lt; CloseTime do<br>&nbsp; &nbsp; Application.ProcessMessages;<br>end;<br>

接受答案了.

十分感谢！