TShrinker
TCompressor
OnPercent
OnProgress
TObject