用delphi实现判断一个数是否为水仙花数的代码