>>808
if (Application->MessageBox("保存しますか？", "終了", MB_YESNOCANCEL) == IDCANCEL)
　　Action = caNone;