TCompressor

OnPercent

OnProgress

TObject