TCustomZlibStream

pt 

OnProgress