delphi bypass ÊÇʲôÒâ˼

procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean); 
    var 
      Info: INTERNET_PROXY_INFO; 
      Reg : TRegistry; 
    begin 
    Reg := TRegistry.Create; 
    try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then 
    begin 
        Reg.WriteString('ProxyServer', Addr); 
      Reg.WriteInteger('ProxyEnable', Integer(Enabled)); 
   
        if Bypass then 
          Reg.WriteString('ProxyOverride', ' <local>') 
        else 
        Reg.DeleteValue('ProxyOverride'); 
      end; 
    finally 
      Reg.CloseKey; 
      Reg.Free; 
    end; 
   
    Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY; 
    Info.lpszProxy := PChar(Addr); 
    InternetSetOption(nil, INTERNET_OPTION_PRO