with ImageEnMView1.MIO do
begin
AcquireParams.VisibleDialog := False
AcquireParams.AutoFeed :=True
AcquireParams.FeederEnabled := True

AcquireParams.DuplexEnabled := True
TwainParams.AutoDiscardBlankPages := -1
TwainParams.YResolution.CurrentValue := 300;
TwainParams.XResolution.CurrentValue := 300;
TwainParams.PixelType.CurrentValue := 0
end;

if not Acquire() then
   begin
          showmesage('ERROR');
          AcquireClose();
          Exit();
   end;

for I := 0 to ImageEnMView1.ImageCount - 1 do
           begin

               ImageEnMView1ImageSelect(nil,I);
               ImageEnVect1.IO.Params.JPEG_ColorSpace := ioJPEG_YCbCr;
               ImageEnVect1.IO.Params.JPEG_Quality := 85;
               ImageEnVect1.IO.Params.JPEG_Progressive := True;
               ImageEnVect1.IO.SaveToFileJpeg(path);

               ImageEnMView1.DeleteImage(I);
               ImageEnMView1.InsertImage(I);
               ImageEnMView1.SetImageFromFile(path);
           end;