Prueba con esto
Código SQL
[-] select i.rdb$field_name
from rdb$relation_constraints rc, rdb$index_segments i, rdb$indices idx
where i.rdb$index_name = rc.rdb$index_name and
idx.rdb$index_name = rc.rdb$index_name and
rc.rdb$constraint_type = 'PRIMARY KEY' and
rc.rdb$relation_name = :TABLA
Cortesía del compañero Al, de una bbdd que colgó en su página web GHSistemas y que ya no está operativa.
En la página de firebird también tienes información al respecto.
Ya nos dirás.
Saludos