线程未运行完毕，在主窗体退出的时候产生异常，如何屏蔽错误窗口？

Question

Procedure ThreadProc;
var
  I:integer
begin
  for I:=0 to 100 do
     Form1.IdHTTP1.Head('http://rain99.com/1.zip');end;procedure TForm1.Button1Click(Sender: TObject);
var
  TmpThread:TMyThread;
begin
  TmpThread:=TMythread.Create(true);
  TmpThread.FreeOnTerminate:=true;
  TmpThread.Resume;end;如题，如果在循环时候点窗体的关闭按钮，将会出现错误窗口，请教各位如何屏蔽，或者强行终止此线程后安全退出窗口？

Answer 1

getlasterror
看看是什么错误 

Answer 2

改一下试试：
Procedure ThreadProc; 
var 
  I:integer 
begin 
  for I:=0 to 100 do 
  begin
    if self.Terminated then exit;
    Form1.IdHTTP1.Head('http://rain99.com/1.zip'); 
  end;end;