请问个关于Xe2多线程的有关问题

请教个关于Xe2多线程的问题
D7里线程暂停和回复用suspend/resume就可以
但是xe2里已经不推荐使用了
请问在Xe2里该如何实现suspend/resume的功能？
找了半天没找到详细的相关资料，e文的看了看，好像是用event，但是没看太明白
有没有哪位可以指点一下？
谢谢！！！

------解决方案--------------------
主动的控制线程的挂起和恢复的确不是一个合理的方式。
线程不应该这么玩。

应该利用等待函数使线程进入等待或者激活。
------解决方案--------------------
CreateEvent | OpenEvent | ResetEvent | SetEvent | SetEventData | WaitForSingleObject | CloseHandle