pt 

OnProgress (TCustomZlibStream)

ro 

OnProgress (TCompressionStream)