XE5 webbrowser прокси с авторизацией

[albionseo]

Не могу сделать авторизацию на прокси сервере, вот мой код, прога тупо виснет, хотя на нескольких форумах давался именно этот код и говорилось о том что он работает, у меня нет, где косяк, куда копать?

procedure TForm1.Button3Click(Sender: TObject);
var
  proxy_info : PInternetProxyInfo;
  user, pass: String;
begin
     dynamic_creat;
     DeleteIECache;
     New (proxy_info);
     proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
     proxy_info^.lpszProxy := PAnsiChar('77.247.243.241:8080');
     proxy_info^.lpszProxyBypass := PAnsiChar('');
     UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNAME, Pchar(логин), SizeOf(логин)+1, 0);
     UrlMkSetSessionOption(INTERNET_OPTION_PROXY_Password, Pchar(пароль), SizeOf(пароль)+1, 0);
     UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
     Dispose(proxy_info);
     wb.Navigate('http://2ip.ru');
end;

[Stilet]

А виснет на навигации в wb или на UrlMkSetSessionOption?

[albionseo]

Сообщение от Stilet

А виснет на навигации в wb или на UrlMkSetSessionOption?

вроде как после всего

либо выдает "обнови страницу" - после обновления ошибка - типа не авторизовался, либо просто виснет, по идее должен открывать окно авторизации, насколько я понял читая форумы, но ничего не открывает

407 Proxy Authentication Required
Access to requested resource disallowed by administrator or you need valid username/password to use this resource