[icWasya]

Нужно сделать примерно следующее.
1)Написать процедуру с параметром TObject, которая выясняет всех родителей этого класса и строит ветку дерева.
2)Вызвать эту процедуру со всеми классами, иерархия которых Вас интересует.