delphi7 InternetSetOption 参数说明，怎么使用，请给出demo

Delphi 7 中的 `InternetSetOption` 函数是用于设置 Internet Explorer（IE）的一些网络连接选项。该函数通常用于 `WinInet` API，它是 Windows 网络库的一部分。`InternetSetOption` 的原型如下：

function InternetSetOption(hInternet: HINTERNET; dwOption: DWORD; lpBuffer: Pointer; lpdwBufferLength: PDWORD): DWORD;

参数含义：
- `hInternet`: 需要设置选项的 Internet 流对象，比如从 InternetOpen 返回的指针。
- `dwOption`: 你要设置的选项类型，例如 `INTERNET_OPTION_PROXY` 或 `INTERNET_OPTION_NO_PROXY`.
- `lpBuffer`: 选项值的内存地址，对于特定选项可能是一个结构体或布尔值。
- `lpdwBufferLength`: 指向接收新选项长度的指针，如果 `lpBuffer` 不为空，此参数用于返回新的大小。

下面是一个简单的示例，展示如何设置 Internet 代理（Proxy）为禁用状态：

uses
  Wininet,
  ActiveX;

var
  hInternet: HINTERNET;
  InternetOptions: TInternetOptionStruct;
  BufferSize: DWORD;

begin
  hInternet := InternetOpen('My User Agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if hInternet <> 0 then try
    FillChar(InternetOptions, SizeOf(TInternetOptionStruct), 0); // 初始化结构体为零
    InternetOptions.dwOption := INTERNET_OPTION_PROXY;
    InternetOptions.fFlags := INET_FLAG_NONE;
    
    InternetOptions.lpszProxy = ''; // 使用空字符串表示禁用代理
    InternetOptions.lpszProxyBypass = ''; // 不做特殊处理
    
    InternetSetOption(hInternet, InternetOptions.dwOption, @InternetOptions, @BufferSize);
    ShowMessage('Proxy set to disabled.');
  except
    on E: Exception do
      Writeln('Error setting proxy:', E.Message);
  end;
  
  InternetCloseHandle(hInternet);
end;

在这个示例中，我们首先打开一个 Internet 流，然后创建一个 `TInternetOptionStruct` 来存储选项，并将其设置为禁用代理。最后，我们使用 `InternetSetOption` 调整这个选项。