Delphi:关闭应用程序时如何调试访问冲突？

try
  // 应用程序关闭代码
except
  on E: Exception do
  begin
    // 处理访问冲突异常
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if not应用程序正常 then
  begin
    CanClose := False;
    // 处理访问冲突
  end;
end;

procedure TForm1.ApplicationException(Sender: TObject; E: Exception);
begin
  if E is EAccessViolation then
  begin
    // 处理访问冲突异常
  end;
end;