SaveLSB example for Delphi

{ This example saves a bitmap compatible with the requirements
   of the TIFF Class F format make sure we are using pixels}

   LEAD1.SaveLSB := true;
   LEAD1.SavePageNumberTag := true;
   LEAD1.BitmapXRes := 204;
   LEAD1.BitmapYRes := 196;

   { scale the bitmap (preserving the aspect ratio) to have a width of 1728 pixels}

   LEAD1.Size (1728, LEAD1.BitmapHeight * 1728 div LEAD1.BitmapWidth , 0);
   LEAD1.Save ('c:\i\lsb.tif', FILE_CCITT_GROUP3_1DIM, 1, 0, SAVE_OVERWRITE);