savedialog弹出提示框的有关问题

savedialog弹出提示框的问题
if   SaveDialog1.Execute   then
    Application.MessageBox(PChar(msg '),PChar(Application.Title),   MB_ICONQUESTION   or   MB_YESNOCANCEL   or   MB_DEFBUTTON1);

我这么写,为什么点保存出现了提示,而保存对话框就不见了?
我应该怎么写才能在执行messagebox以后才保存窗口?

[解决办法]
SaveDialog是一个模块窗口,点击保存后就关闭的。