var Threads : array of TWebThread; i:integer; setlength(Threads,listbox.count+1); for i:= 0 to listbox1.count-1{count: 2 rows} do begin Threads[i] := TWebThread.Create(i,memo1); //创建3条线程 end; 这些没问题,现在我关闭掉其中两条, 例如Threads[2]和Thread[0], Thread[1]还在运行. 问