TDeCompressor
OnPercent
OnProgress
TObject