SaveLSB example for Delphi

var
   RasterIO: LEADRasterIO;
   RasterProc: LEADRasterProcess;
begin
   RasterIO := CreateComObject (CLASS_LEADRasterIO) as ILEADRasterIO;
   RasterProc:= CreateComObject(CLASS_LEADRasterProcess)as LEADRasterProcess;
   //This example saves a bitmap compatible with the requirements
   //of the TIFF Class F format
   //make sure we are using pixels
   LEADRasterView1.ScaleMode:= 3;
   RasterIO.SaveLSB:= True;
   RasterIO.SavePageNumberTag:= True;
   LEADRasterView1.Raster.BitmapXRes:= 204;
   LEADRasterView1.Raster.BitmapYRes:= 196;
   //scale the bitmap (preserving the aspect ratio) to have a width of 1728 pixels
   RasterProc.Size (LEADRasterView1.Raster, 1728,
                   LEADRasterView1.Raster.BitmapHeight * 1728 /
                   LEADRasterView1.Raster.BitmapWidth, 0);
   RasterIO.Save (LEADRasterView1.Raster, 'd:\pictures\lsb.tif',
                 FILE_CCITT_GROUP3_1DIM, 1, 0, SAVE_OVERWRITE);
end;