procedure TctHelpImageInventoryBuilder.btnSaveImageFileClick(Sender: TObject);
const
  JPEG_FILTER_INDEX = 3;   // 5 for JPEG types
var
  rc: TRect;
  destFile: string;
begin
  destFile := ctutils.GenUniqueFilename(sourceFile)
  if destFile <> '' then
    begin
    // get cut rectangle
      with ImageEnView1 do
        rc := Rect(SelX1, SelY1, SelX2, SelY2);
    // apply lossless cut and save
      JpegLosslessTransform(sourceFile, destFile, jtCut, false, jcCopyAll, rc);
      if (ckbDeselectOnSave.Checked) then
        ImageEnView1.DeSelect;
      Talk (lblTalk, 'File saved to: ' + destFile);
    end
  else
    Talk (lblTalk, 'File not saved');
end;

  ieCropper := TImageEnView.Create(nil);
  ImageEnView1.AssignSelTo(ieCropper);
  ieCropper.IO.SaveToFile(destFile);
  FreeAndNil(ieCropper);

  SelBitmap := TIEBitmap.Create;
  ImageEnView1.CopySelectionToIEBitmap(SelBitmap);
  SelBitmap.Write(destFile);
  FreeAndNil(SelBitmap);