delphi代理问题 求解 在线等

delphi代理问题 求解 在线等
procedure TForm1.Button3Click(Sender: TObject);
var
  info : INTERNET_PROXY_INFO;
  reg  : TRegistry;
begin

  reg := TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',False) then
  begin
    reg.Writestring('ProxyServer','socks='+edit2.Text);
    reg.Writestring('ProxyEnable', '1');
  end;
  reg.CloseKey;
  reg.Free;

  info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
  info.lpszProxy:=pchar('socks='+edit2.Text) ;
  InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);

  InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil,0);
  InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED, nil,0);

end;

我把代理地址写在 edit2.text上面 然后注册表修改代理

可是info.lpszProxy:=pchar('socks='+edit2.Text) ; 这一句 不加pachr编译不成功
加上以后 代理不能成功设置

小弟问info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
  info.lpszProxy:=pchar('socks='+edit2.Text) ;
  InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);

  InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil