Objects

   TMonObject = class(TParent)
   private
   protected
   public
      constructor Create; 
      destructor Destroy; override;  //Doit etre OVERRIDE sinon il n'est pas executé
   end;

 // Nom de la classe
  Writeln('UnObjet est de la classe : ',UnObjet.ClassName);
 
   // Teste si l'instance hérite d'une classe particulière
  If UnObjet.InheritsFrom(TComponent) then
   Writeln('UnObjet hérite de TComponent.');
 
    // La classe parente, l'ancêtre
  Writeln('Le parent de UnObjet est de la classe : ',UnObjet.ClassParent.ClassName);
    //Taille de l'instance 
  Writeln('Taille de UnObjet : ',UnObjet.InstanceSize);

Source : https://laurent-dardenne.developpez.com/articles/Delphi/RTTI/