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

</code>
===== Informations sur l'Objet =====
<code delphi>
 // 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);
</code>
Source : [[https://laurent-dardenne.developpez.com/articles/Delphi/RTTI/]]