excepciones con TADOConnection

[JuanPa1]

Hola, estoy realizando una conexión a una base de datos sql server y necesito que mi aplicación no se me caiga cuando el servidor de base de datos sql server este abajo...
Tengo el siguiente código que aparentemente debería controlarme eso pero no se porque no lo hace...
ALguién me puede decir que estoy haciendo mal o como debería hacerlo le agradecería..

ADOQualitySQL.Connected := False;
ADOQualitySQL.ConnectionString:= 'Provider=MSDASQL.1;Persist Security Info=False;User ID=usuario;Password=clave;Data Source=DSN_ODBC';
Try
ADOQualitySQL.Connected := True;
except on e:exception do
Begin
showmessage('Error de conexión con Base de Datos :' + E.Message);
ADOQualitySQL.Connected := False;
Exit;
End;
end;

//El error que me da es que no se existe el servidor sql server o se ha denegado el acceso al mismo