delphi XE7 源码，亲测可以直接使用，为 初学者提供了好的实例。