1、virtual   說明這個方法可能會被修改

TBass = class    PRocedure alert; virtual; {加上 virtual 指示字, 說明這個方法可能會被修改(或叫覆蓋)}    {這種方法叫虛方法}  end;
2、override  修改父類的同名方法
TChild1 = class(TBass)    procedure alert; override; {override 表示修改父類的同名方法}  end;