1、virtual 说明这个方法可能会被修改TBass = class PRocedure alert; virtual; {加上 virtual 指示字, 说明这个方法可能会被修改(或叫覆盖)} {这种方法叫虚方法} end;2、override 修改父类的同名方法TChild1 = class(TBass) procedure alert; override; {override 表示修改父类的同名方法} end;