TCompressEvent = procedure (Sender: TObject; const InBuffer: Pointer; InBytes: Integer; Level: Byte; out OutBuffer: Pointer; out OutBytes: Integer) of object