Delphi 获取异常错误信息（捕获异常）

Delphi 捕获代码抛出的异常信息

try
  //业务代码
except
  on e:exception do
  begin
    application.MessageBox(pchar(e.ClassName), '错误类型', 0); 
    application.MessageBox(pchar(e.Message), '错误信息', 0); 
  end;
end;