Paso una funcion para que revises si esta conectado tu TADOConnection.
Código Delphi
[-]Function ConectarDB(var AMsg:string):boolean;
begin
try
ADOConnection.CLOSE;
ADOConnection.connectionstring = 'CADENA DE CONEXION';
ADOConnection.OPEN;
AMsg := '';
except
on e: exception do
AMsg := e.message;
end;
result := ADOConnection.Connected;
end;
Pasas la variable AMSG y ahi obtienes el mensaje en caso de no conectarse.