请教一个线程问题。

Question

死循环当然要死机了（win 98）
工作线程一般是死循环，但不是一直在工作

Answer 1

waitforsingleobject(hevent,infinite);
等待事件有信号。期间线程挂起。

Answer 2

procedure execute;override;
begin
repeat
  //计算代码
  sleep(20);
until //条件或（no terminate)  
end;不要把循环放在其他函数里，然后用synchronize(函数）调用