关于WebBrowser代理设置的文艺！有经验的大侠来帮忙小弟十分感谢解决方案

关于WebBrowser代理设置的文艺！有经验的大侠来帮忙小弟十分感谢
我想做一个可以设置代理的浏览器，但是有些代理是需要认证账号和密码的，我就按网上说的自己写了，但是始终还是要提示输入用户和密码，有没有办法，直接把这个账号密码发送服务器正常访问网页


procedure TForm1.Button1Click(Sender: TObject);


var info:TInternetProxyInfo;
  lngth:integer;
  h:integer;
  proxy :pChar;
  bypass :PChar;
  FTUserName,FTPassword:STRING;
  hSession, hConnect, hRequest: hInternet;


begin
FTUserName:='cctv';
  FTPassword:='cctv' ;
  proxy:='218.84.23.32:808';
  bypass:=pChar('');
  info.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;
  info.lpszProxy :=proxy;
  info.lpszProxyBypass:=bypass;
  lngth:=sizeof(info);
InternetSetOption(hRequest,INTERNET_OPTION_PROXY_USERNAME,PAnsiChar(FTUserName),Length(FTUserName)+1);
InternetSetOption(hRequest,INTERNET_OPTION_PROXY_PASSWORD,PAnsiChar(FTPassword),Length(FTPassword)+1);
InternetSetOption(nil, INTERNET_OPTION_PROXY, @info, SizeOf(Info));





  web.Navigate(edit1.Text);
  end;

end.

------解决方案--------------------
兄弟我给你留Q你怎么不联系