// Copy all photos loaded in ImageEnM to the project folder
ieMain.Clear;
for I := 0 to iemComments.ImageCount - 1 do
begin
  ImageFileName := iemComments.ImageFileName[I];
  ieMain.IO.LoadFromFile(ImageFileName);
  NewImageFileName := NewFolder + ExtractFileName(ImageFileName);
  ieMain.IO.Params.JPEG_Quality := 90;
  ieMain.IO.Params.JPEG_Smooth := 3;
  ieMain.IO.Params.JPEG_Progressive := false;
  ieMain.IO.SaveToFileJpeg(ImageFileName);
  ieMain.Clear;
end;