Vorfahren einer Klasse zur Lufzeit ermitteln

[oki]

Morgen Leute,

kennt jemand eine Möglichkeit, wie ich zur Laufzeit alle Klassenvorfahren einer Klasse ermitteln und anzeigen kann?

Bsp.:
Klasse: TForm
Anzeige in einer Listbox:
- TForm
- TCustomForm
- TScrollingWinControl
- TWinControl
- TControl
- TComponent
- TPersistent
- TObject
Schon mal Dank für die Hilfe.

Gruß oki