Delphi 2009/2007 的 source\Win32\vcl\Forms.pas 中，GetNonToolWindowPopupParent 函数实现部分：

function GetNonToolWindowPopupParent(WndParent: HWND): HWND;
begin
  Result := GetParent(WndParent);
  while (Result <> 0) and (GetWindowLong(Result, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = WS_EX_TOOLWINDOW) do
    Result := GetParent(WndParent);
    ... // 以下省略

GetNonToolWindowPopupParent 是在 TCustomForm 的 CreateParams 中被调用的，也就是说某些窗口在 Create 的时候，可能就会碰上这个死循环，导致程序挂在这个窗体 Create 的过程中。

网上没搜到这个 Bug 的相关内容，可能一般人的程序中都不会进入这个 while，但 CnPack IDE 专家包的某些窗体代码偏偏就进入了这个 while，导致用户 IDE 失去响应，然后我们在调试过程中才碰到这个问题。

Delphi 2009 Update 1 中仍旧存在此问题，并且以前的 BDS 中貌似也有此问题。目前还在想办法看如何绕过它。