关于死循环中关闭窗口的问题

[findheart]

在一个while死循环中使用了Application->ProcessMessages()，窗口上的控件和最大化、最小化按钮都好用，唯独[X]按钮失灵，真郁闷。
请教一下有没有解决的方法？（除了多线程）
谢谢！

[ccrun.com]

一个简单例子，程序运行后按button1开始死循环，结束时按标题栏的"x"就行了。

单元的.h文件中：
private: // User declarations
void __fastcall WndProc(TMessage &Msg);

单元的.cpp文件中：

bool g_bClose = false; // 设一个全局标志

void __fastcall TForm1::Button1Click(TObject *Sender)
{
while(true)
{
// 在循环体内判断这个标志，如果是真就退出循环
if(g_bClose)
break;
Application->ProcessMessages();
}
}
//---------------------------------------------------------------------------
// 重载窗体的WndProc函数，以响应标题栏的按钮点击消息
void __fastcall TForm1::WndProc(TMessage &Msg)
{
if(Msg.Msg == WM_SYSCOMMAND)
{
if(Msg.WParam == SC_CLOSE) // 如果点击了标题栏的"x"按钮
g_bClose = true;
}
TForm::WndProc(Msg);
}