如何在TWebBrowser中更改字体？

procedure ChangeFontInWebBrowser(WebBrowser: TWebBrowser; FontName: string);
var
  Document: OleVariant;
  Elements: OleVariant;
  Element: OleVariant;
  I: Integer;
begin
  // 获取Document对象
  Document := WebBrowser.Document;

  // 获取所有的HTML元素
  Elements := Document.all;

  // 遍历所有元素，找到需要更改字体的元素
  for I := 0 to Elements.Length - 1 do
  begin
    Element := Elements.item(I);

    // 判断元素是否为文本元素
    if Element.tagName = 'SPAN' then
    begin
      // 修改字体样式
      Element.style.fontFamily := FontName;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 在TWebBrowser中加载HTML文档
  WebBrowser1.Navigate('http://www.example.com');

  // 等待文档加载完成
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;

  // 更改字体为Arial
  ChangeFontInWebBrowser(WebBrowser1, 'Arial');
end;