delphi - Delphi Chromium 嵌入式和循环

Question

我对 Delphi 中嵌入的 Chrome 有一个小问题。
我想从 ListBox（循环）中的 URL 列表中获取页面的文本。

这似乎很容易！我的代码看起来像：

for i := 0 to Form1.ListBox1.Items.Count - 1 do
begin
  // Load URL
  Form1.Chromium1.Browser.MainFrame.LoadUrl(Form1.ListBox1.Items[i]);

  // Put text in StringList
  s := TStringList.Create;
  s.Text := Trim(Form1.Chromium1.Browser.MainFrame.Text);

  // Save with random name
  s.SaveToFile(ExtractFilePath(Application.Exename) +
    IntToStr(RandomRange(1000, 9999)) + '.txt');
end;

循环工作，但只需要 1-2 秒，保存的文件是空
的......实际上循环在加载页面之前完成：S
它应该等待页面加载结束。

有人对此有想法吗？
提前致谢 ！:)

贝尼