请问下面的问号处的功能怎么实现？

Question

请问下面的问号处的功能怎么实现？我在Button1的Click事件写了个Close；
在Form1(Form1是主窗体)的OnClose事件中写如下代码：
  If PrjChanged Then
    Begin
    If MessageBox(Handle,'工程信息已改变，是否保存？    ','信息',MB_YESNO+MB_ICONQUESTION)=IDYES Then
       Begin
       If Trim(Edit1.Text)='' then
          If MessageBox(Handle,'姓名不能为空，请填写完整！      ','',MB_OKCANCEL+MB_ICONQUESTION)=IDOK Then
         ...//不关闭应用程序，让用户续继修改??? 
       Else
         SavePrj; //一个过程
         ...//关闭应用程序？？?
       End;
    End;

Answer 1

begin
 Action := caNone;
 exit;  ...//不关闭应用程序，让用户续继修改??? 
end;其它的不用修改了

Answer 2

if XXX then
begin
 Action := caNone;
 exit;  ...//不关闭应用程序，让用户续继修改??? 
end   
else
beginend;