add code

delphi 7 组件
Merge branch 'master' of https://github.com/yechengxiao/practiseCode