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;