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

이렇게 하면 됩니다.

}지누깅 님이 쓰신 글 :
: 프로그램을 종료시킬때 showmessage를 띄우고 싶은데 어떻게 하죠....
:
: 다시말하면 프로그램의 오른쪽 상단에 보면 x표시가 있잖아요....
:
: 프로그램을 닫기위해서  x표시를 클릭하면 지금은 그냥 창이 닫기는데 x표시를 눌렀을때 showmessage에 "저장했습니까?"라는 메시지를 띄울려고 하는데 한수 부탁합니다.