ImageEn, unit imageenio
TIEDoPreviewsEvent
Declaration
TIEDoPreviewsEvent = procedure(Sender: TObject; var Handled: boolean) of object;