1. Virtual signifie que cette méthode peut être modifiée TBASS = Class Procedure Alert; 2. Modifier la méthode de la classe parent avec le même nom Tchild1 = class (tbass) alerte de procédure;