LoadIFD example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject(CLASS_LEADRasterIO) as LEADRasterIO;

   //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:
   RasterIO.GetFileInfo (LEADRasterView1.Raster, 'v:\images\Test.tif', 1000, 0);
   // Setting LoadIFD to InfoIFD indicates that 1000 is treated as page 1
   RasterIO.LoadIFD := RasterIO.InfoIFD;
   RasterIO.Load (LEADRasterView1.Raster, 'v:\images\Test.tif', 0, 0, 2);
   // Reset LoadIFD to 0 so other TIF files will be handled properly
   RasterIO.LoadIFD := 0;
end;