Delphi:

TZAlloc = function (opaque: Pointer; items, size: Integer): Pointer;

C++:

(opaque: Pointer; items, size: Integer): Pointer ( TZAlloc)();