TShrinker

 

TCompressor

 

OnPercent

 

OnProgress