procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
  // if StoreType = ietNormal get the bitmap from ImageEnMView else load the file
  if ImageEnMView1.StoreType = ietNormal then
  begin
     ImageEnView1.IEBitmap.Assign(ImageEnMView1.GetTIEBitmap(idx));
     ImageEnMView1.ReleaseBitmap(idx);
     ImageEnView1.IO.Params.Assign(ImageEnMView1.MIO.Params[idx]);
  end
  else
  begin    
    iFilename := ImageEnMView1.ImageFileName[idx];
    ImageEnView1.IO.LoadFromFile(iFilename);
  end;
  ImageEnView1.Update;
end;

procedure TForm1.Button1Click(Sender: TObject);
// copy images from Source ImageEnMView to Destination ImageEnMView
// Note if source ImageEnMView contains only thumbnails the destination ImageEnMView will also contain thumbnails
var
  i: integer;
  iIEBitmap: TIEBitmap;
begin
  ImageEnMView2.Clear;
  ImageEnMView2.LockPaint;
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    iIEBitmap := ImageEnMView1.GetTIEBitmap(i);
    ImageEnMView2.AppendImage;
    ImageEnMView2.SetIEBitmap(i, iIEBitmap);
    ImageEnMView1.ReleaseBitmap(i);
  end;
  ImageEnMView2.SelectedImage := 0;
  ImageEnMView2.UnLockPaint;
end;