在线程中如何退出应用程序

我的程序代码如下，使用application.Terminate退出程序，不过退不出来，请指教：
procedure TForm1.run_sqlClick(Sender: TObject);
var
   thread:MyThread;  //定义一个线程
begin
       MyThread.Create(false);  //调用一个线程
end;procedure MyThread.Execute;
begin
        main.Form1.report;
end;procedure TForm1.report;
begin
  application.Terminate;  //退出程序
end;