Delphi:

TIWCompressStreamProc = procedure (inStream, outStream: TStream; const Level: Integer; const CompressMethod: TIWCompressMethod);

C++:

void (inStream, outStream: TStream; const Level: Integer; const CompressMethod: TIWCompressMethod) ( TIWCompressStreamProc)();