TCompressor
OnPercent
OnProgress
TObject