请教关于捕获程序异常关闭信息

Question

这段时间，程序总是自动关闭请教一下，能不能捕获让程序关闭的异常信息呢？

Answer 1

放一个ApplicationEvent组件，OnException事件

Answer 2

我在程序中引用了的：
Application.OnException := OnProgramException;procedure TFrmMain.OnProgramException(Sender: TObject; E: Exception);
begin
  try
  if E is EAbort then begin
    if E is Exception then
    　　mainoutmessage(E.Message)
    else
    　　SysUtils.ShowException(E, nil);
  end;
  finally
    E := nil;
  end;end;但是程序还是会自动退出！