Como Obtener la lista de alias

[cipce22]

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.