try except问题

[wslmsx]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
i:=1;
j:=0;
try
k:=i div j;
showmessage(inttostr(k));
except
showmessage('错误，0不能做除数。');
end;
end;

运行时先报错，出个提示框里面写projectasd.exe raised exception class edivbyzero with message 'division
by zero'.Process stopped.use step or run to continue.
然后继续运行，才出提示框'错误，0不能做除数。'
怎样不显示系统提示的那个框里面的一长串信息而直接显示程序里写的'错误，0不能做除数。'部分。

[SuperTitan001]

不在Delphi下运行就可以了

[Seamour]

debug options -> language exceptions，关掉 stop on delphi exceptions

[wslmsx]

多谢二位！