delphi实例分享：代码与运行结果