빌더를 공부하는 초보입니다.

For문과 While문을 처리하는 도중에 폼 닫기버튼을 누르면 닫히지 않습니다.

디버깅을 해본 결과 Main폼에서는 닫기 버튼을 누르면 FormClose()이벤트 안으로는 들어는 가는데 닫히지 않습니다.

그리고 Main폼이 아닌 다른 폼에서는 닫기 버튼을 눌러도 FormClose()이벤트 안으로 들어오지 않습니다. ㅠㅠ

For문과 While문이 끝난 후에 프로그램이 종료됩니다 ㅠㅠ

어떻게 해야하나요? ㅠㅠ

void __fastcall TForm2::DelayTime(int nTime)             //원하는 시간만큼 Delay를 주는 함수.
{
    MSG message;

    clock_t clk = clock() + nTime;
    while(1) {
        Sleep(1);
        if(clock() > clk)
            break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm2::btGoClick(TObject *Sender)             // 버튼을 클릭하면 사각형을 순서대로 그리는 함수.
{
    bGoStop = true;
    for (int i = 5; i < 35; i++) {
        Application->ProcessMessages();                                         // 다른 이벤트를 받아온다.
        Image1->Canvas->Rectangle(i,i,5*i,5*i);
        DelayTime(500);
    }
}