[fpc-pascal]Any way to find out ancestry of object? (at runtime)

[Marcel van der Heide]

I would like to find out at runtime if an object is a descendant of a certain 
object. Is there any way to do this? The TypeOf function can be used to find 
out if an object _is_ of a certain type but not if an object is a descendant 
of an object.
If there is no way to do this (easily), maybe it would be a good idea to add 
such a function?

Any help would be greatly appreciated.

Best wishes,

Marcel