Delphi FREEWARE注册检验实例及代码