try
//...............代码
except on E: Exception do
begin
showmessage(e.message);//捕获系统异常
exit;
end;
// showmessage('Sorry,...失败！');----自定义抛出异常
end;
乔同学，情况是这样的
procedure TForm1.Button1Click(Sender: TObject);
begin
raise Exception.Create('test')
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024