这是个人转载的delphi开发实例。