线程无故退出问题

Question

我写这个线程经常会自动退出，不知什么毛病，还请高指点
这个线程的目的是在我程序运行的时候捕捉OUTLOOK警告窗口，如果找到就做点处理
觉得分少可以另开帖给分
  TSearchOL = class(TThread)
  private
    OldOLhwnd:HWND;
  protected
    procedure Execute;override;
    Procedure ThreadTerminate(Sender : TObject);
  end;
..................
procedure TSearchOL.Execute;
var
 OLhwnd : HWND;
begin
 Priority        := tpHigher;
 FreeOnTerminate := True;
 OnTerminate     := ThreadTerminate;
 While not Terminated do begin
   OLhwnd:=FindWindow(Pchar('#32770'),Pchar('Microsoft Outlook')); //Outlook2002
   if OLhwnd=0 then OLhwnd:=FindWindow(Pchar('#32770'),Pchar('Microsoft Office Outlook')); //Outlook2003
  //去掉以上2句线程就正常了，难道是Findwindow的问题？
   if OLhwnd=0 then OldOLhwnd:=OLhwnd;
   if (OLhwnd<>0) and (OLhwnd<>OldOLhwnd) then begin
      if GetDlgItem(OLhwnd,4772)=0 then break; //判断是否是警告窗口
      OldOLhwnd:=OLhwnd;          //储存窗口句柄
      ShowWindow(OLhwnd,SW_HIDE); //先隐藏这个窗口
      //文字
      SetWindowPos(GetDlgItem(OLhwnd,4772),0,0,0,280,30,SWP_NOMOVE or SWP_NOZORDER);
      SetDlgItemText(OLhwnd,4772,Pchar('即将访问Microsoft Outlook，出与安全考虑请再次确认！'));
      ShowWindow(GetDlgItem(OLhwnd,4775),SW_HIDE);  //否 隐藏
      ShowWindow(GetDlgItem(OLhwnd,4776),SW_HIDE);  //帮助 隐藏
      if SendDlgItemMessage(OLhwnd,4771,BM_GETCHECK,0,0)=BST_UNCHECKED then begin
        //允许访问 打钩
        SendDlgItemMessage(OLhwnd,4771,WM_LBUTTONDOWN,0,0);
        SendDlgItemMessage(OLhwnd,4771,WM_LBUTTONUP,0,0);
      end;
      SendDlgItemMessage(OLhwnd,4773,CB_SETCURSEL,SendDlgItemMessage(OLhwnd,4773,CB_GETCOUNT,0,0)-1,0); //选择时间最长
      SetWindowPos(GetDlgItem(OLhwnd,4774),0,142,55,0,0,SWP_NOSIZE or SWP_NOZORDER); //移动 "是" 按钮
      SetDlgItemText(OLhwnd,4774,Pchar('确定')); //"是' 改为 "确定"
      //显示窗口设置
      SetWindowLong(OLhwnd,GWL_STYLE,GetWindowLong(OLhwnd,GWL_STYLE  ) and not WS_SYSMENU);
      sleep(1);
      SetWindowPos(OLhwnd,HWND_TOPMOST,0,0,360,120,SWP_NOMOVE or SWP_SHOWWINDOW);
   end;
   Application.ProcessMessages;
   sleep(100);
 end;
end;Procedure TSearchOL.ThreadTerminate(Sender : TObject);
Begin
if not Terminated then begin
  //我没有Terminated但经常会自动free，妖怪!!!!!
  messagebox(Application.MainForm.Handle,pchar('error free'),nil,0);
end;
End;  

Answer 1

if (OLhwnd<>0) and (OLhwnd<>OldOLhwnd) then begin
      if GetDlgItem(OLhwnd,4772)=0 then break; //判断是否是警告窗口
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
break后就退出While循环了，这里如果不想退出，则用Continue
另外最好在While开始的时候添加Sleep,否则Continue后最后的Sleep无效，就会CPU 100%
While not Terminated do begin
   Sleep(10);
Application.ProcessMessages;//这里没什么用的

Answer 2

还是不要在线程里面显示对话框和界面的信息比较好吧，最好用 SendMessage 给主程序，让主程序处理这些，否则把一些消息循环掺在线程中，不知道会不会有什么事情发生？