原文:[转发]将Delphi的对象方法设为回调函数