uses
 WinInet;
function GetProxyInformation: string;
var
 ProxyInfo: PInternetProxyInfo;
 Len: LongWord;
begin
 Result := '';
 Len := 4096;
 GetMem(ProxyInfo, Len);
 try
  if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then
  if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
  begin
  Result := ProxyInfo^.lpszProxy
  end;
 finally
  FreeMem(ProxyInfo);
 end;
end;
{**************************************************************************
* NAME: GetProxyServer
* DESC: Proxy-Server Einstellungen abfragen
* PARAMS: protocol => z.B. 'http' oder 'ftp'
* RESULT: [-]
* CREATED: 08-04-2004/shmia
*************************************************************************}
procedure GetProxyServer(protocol: string; var ProxyServer: string;
 var ProxyPort: Integer);
var
 i: Integer;
 proxyinfo, ps: string;
begin
 ProxyServer := '';
 ProxyPort := 0;
 proxyinfo := GetProxyInformation;
 if proxyinfo = '' then
  Exit;
 protocol := protocol + '=';
 i := Pos(protocol, proxyinfo);
 if i > 0 then
 begin
  Delete(proxyinfo, 1, i + Length(protocol));
  i := Pos(';', ProxyServer);
  if i > 0 then
  proxyinfo := Copy(proxyinfo, 1, i - 1);
 end;
 i := Pos(':', proxyinfo);
 if i > 0 then
 begin
  ProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);
  ProxyServer := Copy(proxyinfo, 1, i - 1)
 end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 ProxyServer: string;
 ProxyPort: Integer;
begin
 GetProxyServer('http', ProxyServer, ProxyPort);
 Label1.Caption := ProxyServer;
 label2.Caption := IntToStr(ProxyPort);
end;