1、virtual   说明这个方法可能会被修改

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