TIdHTTP冻结CEF工作

Question

我在Delphi 10.1中的项目中使用CEF 3.2623.1401.gb90a3be（铬49.0.2623.110）。 （为了与WinXP向后兼容，我必须使用相当老版本的CEF / Chromium）。看一下这段代码：

procedure TMainFrom.IdHTTP_updateWork(ASender: TObject;
  AWorkMode: TWorkMode; AWorkCount: Int64);
  var download_percent:integer;
begin
  download_percent:=round(AWorkCount * 100 / update_file_size);
  Chromium1.browser.MainFrame.ExecuteJavaScript
  ('$(".progress").progress({percent: '+inttostr(download_percent)+'});',
  'about:blank', 0);
end;

这个想法是使用JavaScript在Chromium加载的页面上显示文件下载的进度。一切正常，但是Chromium在加载文件时冻结，并且仅在下载完成后才会绘制进度。铬有Application.ProcessMessages的类似物吗？