WebBrowser и смена IP

[CoDeR]

Пишу браузер который при нажатии на кнопку, используя прокси, меняет IP.

uses
 urlmon, wininet...
...

var
  Form1: TForm1;
  PIInfo: PInternetProxyInfo;
  proxy:string;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('site.ru');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  New(PIInfo);
  proxy:='прокси:порт';
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  PIInfo^.lpszProxy := PChar(proxy);
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, 
piinfo,SizeOf(Internet_Proxy_Info), 0);
  Dispose(PIInfo);
  WebBrowser1.Refresh;
end;

При нажатии Button1 вылетает ошибка: Access violation at address **** in module winnet.dll. Read of adress ******.
И IP не меняется.

Если же прописать код написанный в процедуре Button1Click в процедуру FormCreate, то IP меняется. Помогите разобраться в чём проблема.

[Квэнди]

proxy:='прокси.порт';
где вы видели что бы в спецификации http порт от адреса отделялся точкой ?

[CoDeR]

Это я когда заменял настоящий прокси на эту надпись, то опечатался. Исправил в сообщении сейчас. Так в программе всё с этим нормально, дело в чём-то другом.