webbrowser1 设置socks5代理以后无法打开网页

Question

webbrowser1 设置socks5代理以后无法打开网页
我的设置SOCKS5的代码其他没有特别的设置 为什么打不开网页呢  ？
难道是socks5的设置出错 
求高手解procedure Tform1.SetProxy(proxyS,proxyP:string);  //注册表设置
 var FProxy: string;
 Pinfo: INTERNET_PROXY_INFO;
 begin
  proxy:=proxyS;  //服务器地址
  port:=proxyP;   //服务器端口
  FProxy:=Format('%s:%s',[Proxy,port]);
  Pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  Pinfo.lpszProxy := pchar(proxy);
  //Pinfo.lpszProxy := pchar(FProxy);
  InternetSetOption(nil, INTERNET_OPTION_PROXY, @Pinfo, SizeOf(PInfo));
  InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
  SetReg(FProxy); end;
procedure Tform1.SetReg(FMProxy:string);
  var reg: Tregistry;
  begin
   reg:=Tregistry.Create;
   try
      reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
      begin
        reg.Writestring('ProxyServer','socks='+ FMproxy);
         reg.WriteInteger('ProxyEnable', integer(true));
      end
     finally
       reg.CloseKey;
       reg.free;
     end;
  end;

Answer 1

procedure Tform1.SetReg(FMProxy:string);
  var reg: Tregistry;
  begin
  reg:=Tregistry.Create;
  try
      reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
      begin
        reg.Writestring('ProxyServer','socks='+ FMproxy);
        reg.WriteInteger('ProxyEnable', integer(true));
      end
    finally
      reg.CloseKey;
      reg.free;
    end;
  end;

Answer 2

[code=Delphi(Pascal)]
[
procedure Tform1.SetReg(FMProxy:string);
  var reg: Tregistry;
  begin
  reg:=Tregistry.Create;
  try
      reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
      begin
        reg.Writestring('ProxyServer','socks='+ FMproxy);
        reg.WriteInteger('ProxyEnable', integer(true));
      end
    finally
      reg.CloseKey;
      reg.free;
    end;
  end;]