For j := 0 To TImageEnFolderMView1.ImageCount - 1 Do Begin
      if ImageEnFolderMView1.Checked[j] then begin
         ImageEnFolderMView1.SelectedImage := j;
         ImageEnIO1.LoadFromFile(ImageEnFolderMView1.SelectedFilename);
         ImageEnProc1.Negative;
         ImageEnIO1.SaveToFile(ImageEnFolderMView1.SelectedFilename);
         ImageEnFolderMView1.UpdateImage(j);
      end;
End;

function InsertFile(idx : Integer; const sFilename : string; bSelectIt : Boolean = True; bCheckFileType : Boolean = True) : Boolean;
function AppendFile(const sFilename : string; bSelectIt : Boolean = True; bCheckFileType : Boolean = True) : integer;

procedure TForm1.ReplaceIEBitmap1Click(Sender: TObject);
var
  idx: Integer;
begin
   idx := ImageEnMView1.SelectedImage;
   ImageEnMView1.SetIEBitmap(idx, ImageenView1.IEBitmap);
   ImageEnMView1.UpdateImage(idx);
   ImageEnMView1.ImageTopText[idx].Caption := IntToStr(ImageenView1.IEBitmap.Width) +
    ' x ' + IntToStr(ImageenView1.IEBitmap.Height) + ' RGB ' +
    IntToStr(ImageenView1.IO.Params.BitsPerSample * ImageenView1.IO.Params.SamplesPerPixel)  +
    '-bit';
    ImageEnMView1.ImageInfoText[idx].Caption := 'DPI: ' + IntToStr(ImageEnView1.IO.Params.Dpi);
    ImageEnMView1.ImageBottomText[idx].Caption := ExtractFilename(ImageEnView1.IO.Params.Filename);
end;

  For j := 0 To imageList.ImageCount - 1 Do Begin
      if imageList2.Checked[j] then begin
         imageList2.SelectedImage := j;
         ImageEnIO1.LoadFromFile(imageList2.ImageFileName[imageList2.SelectedImage]);
         imgProc.Negative;
         ImageEnIO1.SaveToFile(imageList2.ImageFileName[imageList2.SelectedImage]);
         imageList2.UpdateImage(j);
      end;
   End;

procedure TForm1.ApplyNegativeFilter1Click(Sender: TObject);
{ Apply a negative filter to checked images in ImageEnMView1. }
var
  i: Integer;
begin
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    if ImageEnMView1.Checked[i] then
    begin
      { Set the selected image }
      ImageEnMView1.SelectedImage := i;
      { Note: It is not correct to use ImageEnProc... always use
        ImageEnMView.Proc for processing images in ImageEnMView }
      { Use ImageEnMView.Proc to apply a negative filter to the selected image }
      ImageEnMView1.Proc.Negative;
      { Update the image }
      ImageEnMView1.UpdateImage(i);
    end;
  end;
  { Note: if ImageEnMView.Update is not called the changes may not be visible }
  { Update ImageEnMView }
  ImageEnMView1.Update;
end;

procedure TForm1.SaveCheckedImages1Click(Sender: TObject);
{ Save checked images to disk with the same filename.  Saved images will replace
  existing images. }
var
  i: Integer;
  iIEBitmap: TIEBitmap;
begin
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    if ImageEnMView1.Checked[i] then
    begin
      { Set the selected image }
      ImageEnMView1.SelectedImage := i;
      { Get the TIEBitmap }
      iIEBitmap := ImageEnMView1.GetTIEBitmap(i);
      try
        { For simplicity save the bitmap with the original filename with
          IESaveToFile which is found in iexhelperfunctions.pas }
        iIEBitmap.IESaveToFile(ImageEnMView1.MIO.Params[i].Filename, 80);
      finally
        { Release the bitmap to prevent memory leaks }
        ImageEnMView1.ReleaseBitmap(i, True);
      end;
    end;
  end;
end;