Question

Delphi多线程检测代理IP是否可用

procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
s:string;
begin
for i:=0 to ListBox1.Count -1 do
begin
s:=ListBox1.Items.Strings[i]; //获得listbox每一行的数据
CheckIP[i]:= TCheckIP.Create(False,s,i +1); 将Listbox每一行的数据传入构造函数
Sleep(15);
end;
end;

这里我实现了同时检测整个listbox内的代理IP是否可用.
但是,我想达到的目的是按了btn1按钮后开启5个线程,然后等待这五个线程运行完后
再接着运行下5个线程,一直到将listbox内的代理IP都验证完,线程终止.
不知道如何达到这种效果,请知道的朋友说一下怎么解决这个问题.
线程部分就不用贴了吧,就是使用idhttp.proxyparams这个赋予代理IP和端口后尝试打开一下网页,判断是否可以打开而已
回复billswhot：
我的IDHTTP是在线程中使用动态创建的，有创建有释放，不是在主线程中使用的。

Answer 1

id控件的socket经常会死，所以不能这样做，应该把他们分配到不同的程序中然后分别调用，如果线程死了就杀掉他们，这样做才能保证稳定运行，否则不多久你的多线程就都死了不动了杀也杀不掉，因为你的id控件是在主程序中的无法重新建立