Código de Delphi - Jerarquía de classes

Código que muestra como averiguar si un objeto pertenece a determinad clase, como preguntarle a un objeto de que clase es y dada una determinada clase como obtener su clase padre. Para ello define una pequeña jerarquia de clases sobre la que trabaja.