举例说明：
一个公司有许多职员在干不同的工作，假如你是公司的老板，想要了解员工的工作，而你又不是很了解每个员工，你只需要对每一个员工提出一个同样的问题：“你现在的工作做的怎么样了？”，他们会回答自己的工作情况。
这种方式在代码里是这样的：
type
职员=class
public
procedure 汇报工作;virtual;
end;
经理=class(职员)
public
procedure 汇报工作;override;
end;
销售员=class(职员)
public
procedure 汇报工作;override;
end;
老板=class
public
职员清单:TList;
procedure 检查工作(某员工:职员);
{不必关心员工是什么岗位，只需要调用"职员"类的"汇报工作"方法就得到结果了}
end;
