为什么不能产生自己的异常？进来看看

Question

代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    j:integer;
begin
    i:=0;
    try
      j:=5 div i;
      label1.Caption:=inttostr(j);
    except
      raise Exception.Create('error!');
    end;
end;
我的意图是产生异常时候显示"error"，但是delphi还是产生了自己的异常，为什么？

Answer 1

是Delphi本身先把它截获了，可以把它关掉：
Tools->Debugger Options->Language Exceptions->Stop on Delphi Exceptions 不打勾另外如果是在Delphi外面运行就不会了。

Answer 2

可以自己产生异常
但在程序“调试状态”下DELPHI始终会显示异常
如果自己加入异常处理代码
那么在编译后的执行程序“运行”时DELPHI的自身异常就不显示了