Ver Erro do BD

Alguém tem uma rotina para verificar, via Delphi, se o banco de dados está com algum problema, tipo corrompido ou outro?

Obrigado