SaveIFD example for Delphi

var
   Page : integer;
   nRet : Integer;
begin
{ This example will add 100 pages to a file faster by continuously using the IFD of the last page}

{ Save page 1, to make sure the file exists}

   nRet := LEADImage1.Save ('test.tif', FILE_TIF, 0, 0, SAVE_APPEND);

   for Page := 2 To 100 do
   begin
   { get the IFD of the last page}
   nRet := LEADImage1.GetFileInfo('test.tif', 0);
   LEADImage1.SaveIFD := LEADImage1.InfoIFD;
   nRet := LEADImage1.Save ('test.tif', FILE_TIF, 0, 0, SAVE_APPEND);
   end;
{ reset the SaveIFD property so the other Save calls will work properly}
   LEADImage1.SaveIFD := 0
end;