procedure TfmBrowser.ApplyProxy(Proxy:TProxy);

begin
 if trim(Proxy.proxy_name)<>'' then
  begin

   New(PIInfo);
   PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;

   PIInfo^.lpszProxy := PAnsiChar(Proxy.proxy_name+':'+IntToStr(Proxy.proxy_port));

   PIInfo^.lpszProxyBypass := PAnsiChar('');

   UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);

  if Proxy.user<>'' then
   begin
     UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNAME, Pchar(Proxy.user), SizeOf(Proxy.user)+1, 0);
     UrlMkSetSessionOption(INTERNET_OPTION_PROXY_Password, Pchar(Proxy.password), SizeOf(Proxy.password)+1, 0);
   end;
  end;

   browser.Navigate ('http://google.com')
 end;