TShrinker

TCompressor

OnPercent

OnProgress

TObject