Delphi - Cuantas tablas tiene una base de datos Firebird

Estoy desarrollando una aplicación contra una base de datos en firebird y necesito hacer una rutina que me devuelva todas las tablas que contiene la base de datos y no sé como hacerlo por código.

Gracias.

Con las system tables:

select RDB$RELATION_NAME from RDB$RELATIONS
where RDB$SYSTEM_FLAG = 0