Delphi回调函数封装DLL