DELPHI 获取错误信息

try
     ....(需要执行的代码)
except
  on e:exception do
     application.MessageBox(pchar(e.Message), '错误提示', 0);
end;