IE代理服务器设置，为什么SOCKET没有选中？

Question

procedure updateregister(szProxy:string);
var reg:TRegistry;
begin
  if 0 = length(szProxy) then
    showmessage('error szProxy infomation:function updateregister');
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',false) then  begin
      reg.WriteString('ProxyServer',szProxy);
      reg.WriteString('ProxyEnable','1');
    end;
  finally
    reg.CloseKey;
    reg.Free;
  end;
  InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0); //通知系统设置改变
  InternetSetOption(nil, INTERNET_OPTION_REFRESH , nil, 0);
end;procedure setProxy(addr,port:string);
var Pinfo:INTERNET_PROXY_INFO;
begin
  if (0 = Length(addr)) or (0 = Length(port)) then begin
    exit;
  end;  pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  Pinfo.lpszProxy := PChar(Format('%s:%s',[addr,port]));
  InternetSetOption(nil,INTERNET_OPTION_PROXY,@pinfo, SizeOf(Pinfo));
  InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED,nil, 0);
  updateregister(addr+':'+port);
end;在代理服务器里面（点击高级按钮）
HTTP 
Secure 
FTP 
Gopher 
全都能使用了，但是socket里面为空，请问为什么怎么解决？谢谢