Подвисает idhttp в потоке + proxy

[record222]

Доброе время суток, друзья!

Помогите пожалуйста. Есть два вопроса.
1. Программа зависает когда idhttp - проверяет более 30 сайтов. Можно сказать не зависает, а как то по другому работает...
2. Как можно сделать, чтоб если прокси плохой, то переключалась на другой. Я пробовал через if else но, что то не получается....

p.s Чтоб решить первую проблему, я пробовал убивать процесс idhttp и создавать в начале потока его заново. Правильно ли это?

Вот мой код:

procedure pars_rus.NextPlease;
var i:integer;
      start:integer;
I_s:integer;
s2:String;
m:integer;
ip, port:string;
 sm:string;
begin
  http:=tidhttp.create(nil);
  with http do
    begin
      allowcookies:=true;
      handleredirects:=True;
      Request.UserAgent:=useragent[Random(useragent.Count-1)];
      Request.Connection:='keep-alive';
    end;
  start:=10;
 while start<=200 do begin
 try
  s:=http.get(url+'&start='+inttostr(start));
  with form1.Label2 do Caption:=inttostr(strtoint(Caption)+1);
except
  { cw:=getnumberproxy;
  sm:=form1.Memo2.Lines[cw];
   m := Pos(':',sm);
   IP := Copy(sm,1,m-1);
   PORT := Copy(sm,m+1,Length(sm));
    with http do
    begin
    proxyparams.ProxyServer:=ip;
    proxyparams.ProxyPort:=strtoint(port);   }
    ShowMessage('БАН!!!');
    end;
     s:=http.get(url+'&start='+inttostr(start));
  with form1.Label2 do Caption:=inttostr(strtoint(Caption)+1);
end;
  if POS('Поиск', s)<>0 then begin
    Synchronize(IsNeeded);
    start:=0;
    exit;
    http.Free;
  end;
  start:=start+10;
 end;


procedure pars_rus.Execute;
var
 i:integer;
 m:integer;
 ip:string;
 port:string;
 sm:string;
begin
for i:=0 to form2.Memo1.Lines.Count-1 do begin
  http:=tidhttp.create(nil);
  with http do
    begin
      allowcookies:=true;
      handleredirects:=True;
      Request.UserAgent:=useragent[Random(useragent.Count-1)];
      Request.Connection:='keep-alive';
    end;
zapros:= URLEncode(AnsitoUTF8(form2.Memo1.Lines[i]) );
url:='http://URL'+zapros;
try
begin
s:=http.Get('http://URL'+zapros);
end;
  with form1.Label2 do Caption:=inttostr(strtoint(Caption)+1);
except
begin
  { cw:=getnumberproxy;
   sm:=form1.Memo2.Lines[cw];
    m := Pos(':',sm);
    IP := Copy(sm,1,m-1);
    PORT := Copy(sm,m+1,Length(sm));
    with http do
    begin
    proxyparams.ProxyServer:=ip;
   proxyparams.ProxyPort:=strtoint(port);    }
   showmessage('БАН!!!');
    end;
s:=http.Get('URL'+zapros);
  with form1.Label2 do Caption:=inttostr(strtoint(Caption)+1);
end;
http.Free;
end;
if POS('Поиск', s)<>0 then Synchronize(IsNeeded) else NextPlease;
 end;

Заранее большое спасибо!