TOnThumbnailUpdated = procedure (sender: TObject; ImageIndex: Integer; ThumbnailBitmap: TBitmap) of object;