怎样修改错误产生的窗体

怎样修改异常产生的窗体
就是使用try..finally..end语句产生异常时，所弹出的窗体想自定义一下，要怎么处理？如下图：

异常处理
[解决办法]
try
  try
    ....
  finally
  end;
except
  on E:Exception do
  begin
    ShowMessage(E.message);//这里你可以写自己的代码
  end;
end;