Delphi多线程有关问题

Delphi多线程问题
在线程的Execute方法中，加上
while True do
begin
end;

后，CPU达到99，各位有遇到过没？