delphi 怎么程序执行数据保存的时候 提示正在执行操作是否关闭程序

delphi怎么程序执行数据保存的时候 关闭窗口时提示正在执行操作是否关闭程序

 TForm1.FormCloseQuery里面写
if MessageDlg('还有未保存文件，是否关闭？',mtWarning,[mbYes,mbNo],0)=6 then
CanClose:=true
else
CanClose:=false;