利用idhttp设置代理连接的一段代码,烦请高人指点迷津---卷大侠数年前把此帐号给了我(300分)

想找卷大侠的，直接去联系卷大侠好了；大概2年前卷大侠把此帐号给了我，我是他学弟。
卷大侠目前不再从事软件开发行业了，另谋高就啦。我现在也联系不上他了。
----------------------------------------------
我想用idhttp设置代理连接某服务器接口,所有的代理地址放在一个文本文件里
设置超时为3秒，3秒连不上或者3秒无返回，则自动读取文本里的下一个代理地址
自己写了下面这段代码，不知对不对，烦请各位大侠指点：
proxylistnumber//文本里的代理地址的数量
proxylist是tstringlist，获取文本里的代理地址
for k :=0 to proxylistnumber-1do
begin
idhttp1.ProxyParams.ProxyServer :=proxylist.Strings[k];
idhttp1.ProxyParams.ProxyPort :=80;
idhttp1.readtimeout :=2000;
idhttp1.Connect;
try
idhttp1.Get('url');
except

end;

if idhttp1.ResponseCode=200 then
//如果未超时，就跳出循环，执行后面
begin
break;
end
else
idhttp1.Disconnect;//如果超时，则继续读取文本里的下一个代理地址尝试
end;

不知我上面这么写代码对不对？我文本里放了很多代理地址，有些是能用的，可是运行后，还是得不到准确的返回。烦请各位大侠看看上面的代码，是不是能实现我的意思呢？如果我写的不对，还望给个详细的代码。在此先谢了。

等待指点

唉，没人指点啊

go on