Delphi:

TZWriteFunction = function (param: Pointer; const buffer; size: Integer): Integer;

C++:

(param: Pointer; const buffer; size: Integer): Integer ( TZWriteFunction)();