Прокси сервер не отвечает

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
if(OpenDialog1->Execute()) {
Edit2->Text = OpenDialog1->FileName;
}
TStringList *List1 = new TStringList();
List1->LoadFromFile(Edit2->Text);
int count_strings = List1->Count;
for(int l=1;l<=count_strings;l++){
Memo1->Lines->Add(List1->Strings[l]);
Label9->Caption = l;
}
}
//---------------------------------------------------------------------------
int i = 0;
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Edit1->Text == "" || Edit2->Text == "" || Edit3->Text == "") {
MessageBox(NULL, L"Заполните все поля!", L"Ошибка", MB_OK | MB_ICONWARNING);
} else {
 
Label6->Caption = i;
char szBuf[4096] = { 0 };
INTERNET_PROXY_INFO *PIInfo= (INTERNET_PROXY_INFO*)szBuf;
BOOL (WINAPI * _UrlMkSetSessionOption)(DWORD, LPVOID, DWORD, DWORD);
HINSTANCE hPsApi = LoadLibrary(_T("URLMON.DLL"));
*(FARPROC *)&_UrlMkSetSessionOption = GetProcAddress(hPsApi, "UrlMkSetSessionOption");
 PIInfo->dwAccessType = INTERNET_OPEN_TYPE_PROXY;
  PIInfo->lpszProxy = PChar(Memo1->Lines->Strings[i].c_str());
  PIInfo->lpszProxyBypass = PChar("");
 _UrlMkSetSessionOption(INTERNET_OPTION_PROXY, PIInfo, sizeof(INTERNET_PROXY_INFO),0);
 CppWebBrowser1->Refresh();
WideString URL = "http://2ip.ru/";
Variant Flag = 2;
CppWebBrowser1->Navigate(URL.c_bstr(),Flag,NULL,NULL,NULL);
Memo2->Lines->Add("Сейчас используется: "+Memo1->Lines->Strings[i]);
Memo2->Lines->Add("=-=-=-=-=-=-=-=-");
i++;
 
}
}
//---------------------------------------------------------------------------