多线程关闭窗体的问题！！（急急！！）(50分)

我的多线程是这样子创建的，如下：
FthreadList := TThreadList.Create;
for li:=Low(gPosList) to High(gPosList)do
begin
FtUpLoad:= TUpLoad.Create;
FthreadList.Add(FtUpLoad);
end;
with FthreadList.LockListdo
try
for li:= 0 to Count-1do
begin
TUpLoad(Items[li]).Resume;
//重新唤起线程进行操作
TUpLoad(Items[li]).Findex := li;
TUpLoad(Items[li]).ConStr := con1.ConnectionString;
end;
finally
FthreadList.UnlockList;
end;
怎么来中途关闭窗体的情况下，关闭每一个正在运行的线程。

我也有这样的问题。关注一下。帮顶

在窗体的关闭事件中，调用下面的方法，就可以在线程关闭后，在退出程序。
procedure TThreadName.Stop;
begin
terminate;
waitfor;
end;

问题自己解决了，给分！！
不知道是不是占用很多内存的缘故，在windowxp下最小化我的程序，程序一下子就退出！！

那肯定是异常

揭贴！！

已经解决！！