用delphi2006编写的源码,没有使用三方控件