J2KTargetFileSize example for Delphi

   //shows saving J2K using TargetFilesize
   // compress a 30K JPEG2000 file
   LEADImage1.J2KCompressionControl:= J2K_COMPRESSION_TARGETSIZE;
   LEADImage1.J2KTargetFileSize:=  30 * 1024;
   LEADImage1.Save ('c:\temp\30k.j2k', FILE_J2K, 0, 0, SAVE_OVERWRITE);