delphi中ADO方式连接数据库怎样进行异常捕获,请哪位高手用代码帮写一下,谢谢!