Delphi连接sql数据库怎么判断连接是否成功呢

一切属性都设置好后，我在Button里 ADOConnection1.Connected := True;这样连的，之后如何判断是否连接成功了呢？
查询一下数据试试？有更直接的办法吗？

-----------

if ADOConnection1.Connected then 连接成功

2、可以编写一个连函数，试着连接数据库某个表的数据，返回连接成功值。

3、代码如下：

var Con:boolean;
  try
    DataModule1.ADOCon.Connected:=False;
    DataModule1.ADOCon.ConnectionString:=ConnectionString;
    DataModule1.ADOCon.Connected:=True;
    Con:=True;
    StatusBar1.Panels[].Text:=' 数据连接成功！';
  except
    Con:=False;
    StatusBar1.Panels[].Text:=' 连接数据失败......';
  end;

（1）通过Con判断是否连接
（2）StatusBar1显示是否连接成功。

用DataModule1只不过是好习惯而已吧？不用它是不是没啥区别