自学Delphi过程中编写的第二个程序。附上源码供高手指点。