在delphiXE5中测试,可以使用