我遇到了一个非常罕见的情况，似乎ExecuteScript不返回？

FWebBrowser.ExecuteScript('document.documentElement.outerHTML',
        procedure (const AStrResult: string)
        begin
          // never returns here
          TmpGetDocumentAsStr := AStrResult;
          TmpCS.Acquire;
          TmpExecuted := True;
          TmpCS.Release;
        end
      );

所以我下面的代码一直在等待TmpExecuted为真（循环检查值并休眠）。
现在，我当然可以在100000毫秒后退出，但是我更希望Executescript在x时间后返回。
我错过什么了吗？