De entrada hola y gracias ecfisa jeje, lo he probado pero me salta la exception
Código Delphi
[-]raise Exception.Create('Firebird no instalado');
No ha funcionado del todo pero he logrado aprender algo del codigo que me has compartido, de nuevo gracias.