Prüfen, ob Klasse von einer anderen abgeleitet ist?

[Ganymed]

Hi!

Wie kann ich ermitteln, ob eine Klasse von einer anderen Abgeleitet ist?

Code:

type TMyObject = class
  ...
  end;

type TMyObject2 = class(TMyObject)
  ...
  end;

Ich möchte jetzt gerne überprüfen, ob TMyObject2 von TMyObject abgeleitet ist. Mit is geht das ja nicht, weil das nur prüft, ob Object is Class...

Gruß

Ganymed