delphi 的一些小技术供参考 希望换点分值