Delphi的WaitForSingleObject在多线程中可能出现的一种情况，有什么解决的想法？

WaitForSingleObject(event, INFINITE);
Sleep(1000);
Windows.ResetEvent(event);
...
Windows.SetEvent(event);

这是在一个线程的execute里的代码，如果执行到sleep的时候另一个线程也通过了WaitForSingleObject的判断，那么怎么办？有办法把WaitForSingleObject和Windows.ResetEvent(event)搞成原子操作？

---

这个问题本来就是从CSDN上复制过来的，现在CSDN上已经有了不少的回复

http://bbs.csdn.net/topics/391542966