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