作者在Delphixe3编译通过，改进了前面发表的函数。