在循环中加个判断的小循环,条件满足时执行小循环进行等待var m_bLoop:boolean;
begin
//.......
while true do 
begin
  while m_bLoop do begin
    Sleep(100);
  end;
end;要等待时设置m_bLoop:=true