用多线程进行扫描，CPU资源占有非常厉害，怎么解决？

用多线程来进进行扫描
procedure TA.Execute;
begin
   while true do
   begin
     IF Terminated THEN Break;
     .....
     Synchronize(DoScanA);
     ........

   end;
end;procedure TA.DoScanA;
begin
  while a=true do
  begin
    ............
    ...........
    //由于a在一定时间范围内基本为true，所以会在不断的进行扫描，而且这个扫描必须不断进行的，调试后发现CPU资源占用非常大，基本上陷入死循环了，请问该怎么解决？请大虾帮帮忙，谢谢！
  end;
end;