多线程检测代理IP是不可用

Question

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和端口后尝试打开一下网页,判断是否可以打开而已

Answer 1

2ccc有现成例子
http://www.2ccc.com/article.asp?articleid=3592

Answer 2

加一个全局变量FCount=0，在线程创建时Thread.OnTerminate :=MyTerminate;inc(FCount),在线程结束时MyTerminate中dec(FCount);
在你的循环中检测 FCount是否大于5，如果是就暂停(while FCount >5 do begin Sleep(100);
                Application.ProcessMessages ;end;