Delphi:

TZReadFunction = function (param: Pointer; var buffer; size: Integer): Integer;

C++:

(param: Pointer; var buffer; size: Integer): Integer ( TZReadFunction)();