J2KCompressionControl example for Delphi

   // shows saving J2K lossless
   // compress a lossless file
   LEADImage1.J2KCompressionControl := J2K_COMPRESSION_LOSSLESS;
   LEADImage1.Save ('c:\temp\lossless.j2k', FILE_J2K, 0, 0, SAVE_OVERWRITE);