请问一个简单的异常问题？谢谢！(0分)

procedure TForm1.Button1click(Sender:TObject);
var
i,j:integer;
begin
i:=0;
j:=1;
try
j:=j div i;
except
on e:EDivByZero do
showMessage(E.Message);
end;
end;
为什么我在运行过程中，单击BUTTON1时，并不会弹出提示窗口？

0 分啊!
看你的代码，全被编译器优化掉了，没有一句会执行。

哦，是的，有可能。谢谢！不好意思，下次给分！