delphi 设置代理问题 急

网上看了很多帖子 方法都一样  调试起来都不行
虽然 IE 选项中已经完成了 代理的设置
但是 访问起来还是不行 譬如 访问www.ip138.com
已经是本机IP

我的代码 就是根据网上普遍的代码 修改的 请高手过目
procedure TForm1.Button1Click(Sender: TObject);
var sProxy: string;
      Pinfo: INTERNET_PROXY_INFO;
    reg: Tregistry;
    begin
    Pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
    Pinfo.lpszProxy := pchar(trim(edit1.Text));
    InternetSetOption(nil, INTERNET_OPTION_PROXY, nil, SizeOf(PInfo));
    InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
    reg:=Tregistry.Create;
    try
      reg.RootKey := HKEY_CURRENT_USER;
      if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', true ) then
      begin
      reg.Writestring('ProxyServer', edit1.Text);
      reg.WriteInteger('ProxyEnable', integer(true));
      end
      finally
        reg.CloseKey;
          reg.free;
          webbrowser1.Navigate('http://www.google.com');
    &n