delphi的回调函数实例,写得很简单,不过原理都一样