在delphi7环境下已经通过，仅供学者者练习，若已经入门，请勿下载，会浪费时间的。