[[duilioisola]]

Otra forma es hacer un select de algo. Si no funciona, no estás conectado:

Código Delphi [-]
EstoyConectado := False; {inicializo}
try
   {genero un query}
   Query.Close;
   Query.SQL.Text := 'SELECT FIRST 1 ID FROM TABLA';
   Query.ExecQuery;
   {Se realizo con exito}
   EstoyConectado := True;
except
   {Fallo}
   EstoyConectado := False;
end;