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