如何使Delphi7应用程序崩溃？

Question

我喜欢在Delphi7 Application中引入崩溃。我喜欢这样做，尝试崩溃转储，并转到与我介绍错误代码相同的地方。

下面是单击表单上的按钮时运行的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  x : Integer;
  y : Integer;
begin
  //Try Crashing the WebLink Dll (For a Reserach)
  x:=0;
  y:=0;
  y:= x div y;
end;

end.

当我在调试器中执行以上代码或双击exe时，我收到以下消息。但是，应用程序不会崩溃。意思是，在单击“确定”对话框后，我可以再次单击“按钮1”。我没有任何异常处理代码。但是，如何不从操作系统中删除进程？我必须在delphi-7中编写什么代码，以便应用程序在显示崩溃消息后终止