关于线程suspend的问题！

Question

我遇到一问题，希望大家能帮我一下。我的程序中需要控制一线程的挂起和恢复，但是不能直接用线程自己的suspend,因为线程中反复调用一函数，该函数中描述的是一原子型的操作，线程挂起时，该操作必须处于完成状态。我的处理方法是设一全局量　X，在线程调用函数之前，设为假，在调用后，设为真并延时。
在suspend之前写这样的代码：
while not X do
begin
  sleep(10);
end;
想等到X为真的时候，再suspend。
但是结果不像我想像的那样，程序运行到这的时候死循环，跳不出来了，似乎线程不再走了。谁能帮我解释一下，先谢了！

Answer 1

while not X do
begin
  sleep(10);
end;
不是写到调用函数的那个线程里了吧。如果是，你就让那个线程睡大觉去了。推荐用 WaitForSingleObject;

Answer 2

如果你是在主線程中, 那應該是:
while not X do
begin
 Application.ProcessMessage;  
end;