Работа IdHttp через прокси

[TilerDerton]

Нашел такой топик, пытаюсь использовать то, что там написано, но! В программе:

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Execute; // вызвать окно для обзора папок
edit1.Text:=OpenDialog1.FileName; // получить выбранный путь
end;


procedure TForm1.Button1Click(Sender: TObject);

begin

 Timer1.Enabled:=true;
 end;

procedure TForm1.Timer1Timer(Sender: TObject);

var
ProxyList:TStringlist; /// файл с проксями
pos1:integer; /// для разделения сервер:порт
i:integer; /// оператор цикла
str:string; /// переменная троки из файла
server,port:string; /// переменные для прокси

begin /// Начало процедуры


{--- Загружаем список прокси ---}
 ProxyList:=TStringList.Create;
 ProxyList.LoadFromFile(edit1.text);
   if ProxyList.Text=''
 then begin
  ShowMessage ('Список пуст');
 Timer1.Enabled:=false;
 exit;
 end;
{--- Загрузили ---}

 for i:=0 to ProxyList.Count-1 do
 begin /// начало цикла
  str:=ProxyList[i];
  pos1:=pos(':', str);
  Server:=copy(str, 1,  pos1-1);
  Port:=copy(str, pos1+1, length(str) - pos1);
IdHttp1.ProxyParams.ProxyServer:=(Server);
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);
 IdHttp1.ReadTimeout:=strtoint(edit3.text);
 idhttp1.get('http://'+edit2.Text);
 application.processmessages;
end; /// конец цикла
end; /// Конец процедуры
end.

Получается следующее, из списка проксей она как-будто берет все строки разом и ломится через них на целевую страницу. Хотя по идее должна брать только 1, а следующую после обработки первой. При этом программа виснет намертво (даже если в списке 3-4 прокси). Задержки пробовал ставить в интервале от 1 до 10 секунд - эффект тот же.
Когда я просвечиваю переменную i через лэйбл (в конце цикла) выходит, что ей присваивается только значение "1", после виснет. Хотя указав сайт и посмотрев через него, я вижу, что были переходы с нескольких ИП, т.е. запросы уходили.
Антифриз на форме висит.
Вопрос: что я делаю не так?
Заранее спасибо.

[Квэнди]

Пока проблемы,связанной с сетевым программированием не вижу. как только возникнет проблема с работой Idhttp через прокси, тогда пишите сюда, а пока у вас криво работает остальной код. СОздавайте соответствующую тему в соответствующем разделе

[TilerDerton]

Проблема решена, удалите пожалуйста тему.