SavePage example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO := CreateComObject (CLASS_LEADRasterIO) as ILEADRasterIO;
   //replace page 1 from TEST.TIF
   RasterIO.SavePage:= 1;
   RasterIO.Save (LEADRasterView1.Raster, 'd:\pictures\TEST.TIF',
              FILE_TIF, 8, 0, SAVE_REPLACE);
end;