Вход на сайт через прокси

Нужен исходник входа на сайт через прокси.

Вот что в гугле нарыл...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, j: integer;
Stream: TMemoryStream;
begin
{перебираем циклом по всем строкам ListBox'a}
for i:= 0 to listbox1.ItemIndex - 1 do begin
IdHTTP1.ProxyParams.ProxyServer:= listbox1.Items;
ShowMessage('Прокси выбран!');
end;
for j:= 0 to listbox2.ItemIndex - 1 do begin
IdHTTP1.ProxyParams.ProxyPort:= StrToInt(listbox2.Items[j]);
ShowMessage('Порт выбран');
end;
//заход через прокси
try
Stream:= TMemoryStream.Create;
IdHTTP1.Post('http://www.example.com', Stream);
finally
Stream.Free;
IdHTTP1.Free;
end;
end;

 

кодируй на апи, выкинь эту херню в баню, тока сам ся запутаешь

 

Зачем перебирать все строки в listbox1 и listbox2, если используются только последние?