回调函数的问题(0)

VB中定义了函数Declare Function AplIFEntryEventFunc Lib "PacsAplIF.dll" _ (ByVal PageEndProc As Long, ByVal reserve As Long, _ errNo As Long) As Long回调函数为Function PageEndProc(pScanInfo As SCAN_PAGEINFO) As Long。。。End Function调用方式如下 sts = AplIFEntryEventFunc(AddressOf PageEndProc, 0, errNo)这个在DELPHI里该如何写

定义一个函数：function test(parameters : string) :boolean;begin showmessage(parameters);end;声明回调函数：type func = function(parameters : string) :boolean;定义回调函数：var testfunc:func;begin testfunc := test; //然后这里就可以直接使用testfunc了． testfunc('my call back function.');end;