TZFree = procedure (opaque, block: Pointer);
(opaque, block: Pointer) ( TZFree)();
ZLib
This is type ZLib.TZFree.