线程 destroy 为什么不执行

Question

线程类如下:type
   TThreadProc = Procedure of object;   TDealThread = class(TThread)
      private
         FThreadProc : TThreadProc;
         FBeforeDestory  : TThreadProc;
      protected
         procedure Execute ;Override;
      public
         constructor Create(ThreadProc : TThreadProc);OverLoad;
         destructor Destroy;Override;         property  OnBeforeDestory: TThreadProc read FBeforeDestory write FBeforeDestory;
   end;implementationuses Forms,windows;constructor TDealThread.Create(ThreadProc : TThreadProc);
begin
   FThreadProc:= ThreadProc;
   
   Inherited Create(TRUE);
end;destructor TDealThread.Destroy;
begin
   OnBeforeDestory;
       Application.MessageBox('文件已经关闭!','提示',mb_OK + MB_ICONERROR);
       
   Inherited Destroy;
end;procedure TDealThread.Execute;
begin
   FThreadProc;   Terminate;    
end;

Answer 1

中止线程用的时 Terminate 方法

Answer 2

线程terminate时会触发什么事件么？