[lmikle]

У меня вот так работает:

Код:

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  proxyinfo: pinternetproxyinfo;
  len: longword;
begin
  Edit5.Text:='';
  len := 4096;
  getmem(proxyinfo, len);
  try
    if internetqueryoption(nil, internet_option_proxy, proxyinfo, len) then
    if proxyinfo^.dwaccesstype = internet_open_type_proxy then
      begin
        Edit5.Text := StrPas(proxyinfo^.lpszproxy);
      end
  finally
    freemem(proxyinfo);
  end;
end;

правда, это на Д7.