void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    if(Application->MessageBox("종료하시겠습니까?", "종료?", MB_YESNO) == mrYes)
        Action = caFree;
    else   
         Action = caNone;
}