Delphibho代码这是我从网上找来的。