TBass = class PRocedure alert; virtual; {Add virtual indicator to indicate that this method may be modified (or overridden)} {This method is called virtual method} end; 2. Override modify the method of the parent class with the same name
TChild1 = class(TBass) procedure alert; override; {override means modifying the method of the parent class with the same name} end;