如何获得delphi 的异常信息

Question

在try....Except...end 中产生的错误异常信息 
如何用application.messagebox();显示出来？用其它message也行 ！ try 
. 
. 
. 
Except 
application.messagebox();//如何写？
showmessage();//如何写？
end;

Answer 1

try
  ……
except
  on E: Exception do
  begin
    ShowMessage(E.Message);
    ……
  end;
end;

Answer 2

还有，能不能这样写？
try
  ……
except
  on E: Exception do
  begin
    ShowMessage(E.Message);
    return;//让程序不再往下执行，行不？
    ……
  end;
end;

Answer 3

return;//让程序不再往下执行，行不？ 用exit;

Answer 4

    try
      //执行代码
    except
      on e:Exception do
      begin
        Application.MessageBox(PChar('数据保存出错,请重试'+#10#13+'错误原因:'+e.Message),'提示',64);
        Exit;//退出
      end;
    end;