황경록 님이 남기신 답변내용을 보시면
WM_QUERYENDSESSION 언급한 부분이 있습니다

그 부분을  아래와 같이 수정해서 테스트 해보니 나그네님이 말씀하시는 부분이 아닌가 싶어서요!

void __fastcall TForm1::WMQueryEndSession(TMessage &Msg)
{
     //Msg.Result=0; //종료 가능 ,
     //종료하지 못하게 하려면 Msg.Result=0;
    Close();
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    ShowMessage("OK?");
}