LoadIFD example for Delphi

   { All examples will assume that "test.tif" has over 1002 images}
   { This example will load pages 1000 and 1001 after getting the information for page 1000:}
   
   LEADImage1.GetFileInfo ('test.tif', 1000);
   { Setting LoadIFD to InfoIFD indicates that 1000 is treated as page 1}

   LEADImage1.LoadIFD := LEADImage1.InfoIFD;
   LEADImage1.Load ('test.tif', 0, 1, 2);
   { Reset LoadIFD to 0 so other TIF files will be handled properly}
   LEADImage1.LoadIFD := 0