为什么错误晃能捕捉......?(80分)

我用以下代码：
[blue]
var x:Extended;
y:integer;
begin
try
y:=0;
X := 12/y;
Edit1.text:=tostr(x);
except
on EZeroDivide do
edit1.Text:='ddddd';
end;
end;
[/blue]
为什么还会出现错误窗口:

[red]
Project project1.exe raised exception class EZeroDivide with message '浮点指针被0除'. Process stopped Use Stop or Run to countion.
[/red]
怎样把此错误窗口不显示。直接调用　on EZeroDivide do
下面的语句呢？
请高人指点....?

//编译后，不要在编译环境执行，直接执行编译过的程序，没问题！
var x:Extended;
y:integer;
begin
try
y:=0;
X := 12/y;
Edit1.text:=floattostr(x);
except
on EZeroDivide do
edit1.Text:='ddddd';
end;
end;

或者把调试的功能禁用，就不会出现此问题了

谢了....

多人接受答案了。