DeletePage example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject (CLASS_LEADRasterIO) as LEADRasterIO;
   //delete page 1 from TEST.TIF
   RasterIO.DeletePage ('c:\temp\test.tif', 1);
end;