delphi 之覆盖虚方法示例

引用来源:https://www.cnblogs.com/del/archive/2007/12/05/983657.html