delphi判断数据库连接失效