Delphi - Cuantas tablas tiene una base de datos Firebird

Filtrado por el usuario: Jimena

Filtrado por el usuario 'Jimena' (Eliminar fitro)

Necesito ayuda con este problema,está en Pseint y necesito pasarlo a Turbo Pascal con procedimientos