TPicture
OnChange
OnProgress