Source position: fpreadtiff.pas line 55
type TTiffCreateCompatibleImgEvent = procedure(
Sender: TFPReaderTiff;
ImgFileDir: TTiffIFD
) of object;