void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if (MessageDlg("Close application ?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0)
                     == mrYes)
     Action = caFree;
  else
     Action = caNone;
}

메인 화면에 x를 눌렀을때 메시지를 띄울려고 하는데 위에 있는 소스처럼 코딩을 하고 컴파일을
시켰습니다.
에러메시지는 뜨지 않는데 실행파일을 실행시켜서 x를 눌렀는데도 메시지창이 뜨지 않습니다.

왜 그렇습니까?