[fpc-pascal] Any way to find all descendants of a class?

[Craig Peterson]

In Delphi I can use the new extended RTTI support to build a list of all
TForm descendants in my application (TRttiContext.GetTypes).  Is there
any way to do the same thing in Free Pascal without having to explicitly
add each class to a list?

I do have an intermediate class that all of our other forms descend
from, so I can add something there if necessary, and I don't need it to
be compatible with Delphi.

-- 
Craig Peterson
Scooter Software