全局捕获异常错误弹窗delphi源代码

软件总有想不到的异常发生，比如网络访问不了。。。 如果系统弹出错误窗体，软件有可能就会终止运行，特别是那些不是人工守着的软件，这个delphi源代码就让所有的窗体显示在软件本身的文本框中，而不能让它弹出来，软件不会中断将继续运行！