procedure TForm1.Copy1Click(Sender: TObject);
{ Copy the contents of ImageEnView1 to ImageEnView2 }
var
  i: Integer;
begin
  Screen.Cursor := crHourGlass;
  try
    ImageEnMView2.Clear;
    for i := 0 to ImageEnMView1.ImageCount - 1 do
    begin
      { Add an image to ImageEnMView2 on demand }
      ImageEnMView2.LoadFromFileOnDemand(ImageEnMView1.ImageFileName[i], true);
      { Set the filename of ImageEnMView2 }
      ImageEnMView2.ImageFileName[i] := ImageEnMView1.ImageFileName[i];
      { Set the MIO.Params of ImageEnMView2 }
      ImageEnMView2.MIO.Params[i].Assign(ImageEnMView1.MIO.Params[i]);
      { Set the ImageEnMView2 bottom text }
      ImageEnMView2.ImageBottomText[i].Caption := ImageEnMView1.ImageBottomText
      [i].Caption;
    end;
    { Scroll ImageEnMView2 to beginning }
    ImageEnMView2.DisplayImageAt(0, 0, 0);
  finally
    Screen.Cursor := crDefault;
   end;
end;

procedure TForm1.Copy1Click(Sender: TObject);
{ Copy the contents of ImageEnView1 to ImageEnView2 }
var
  i: integer;
begin
  ImageEnMView2.Clear;
  for i := 0 to ImageEnMView1.ImageCount-1 do
  begin
    { Add an image to ImageEnMView2}
    ImageEnMView2.AppendImage;
    { Set the filename of ImageEnMView2 }
    ImageEnMView2.ImageFileName[i] := ImageEnMView1.ImageFileName[i];
    { Set the ieBitmap of ImageEnMView2 }
    ImageEnMView2.SetIEBitmap(i, ImageEnMView1.GetTIEBitmap(i));
    { Release the bitmap to free memory }
    ImageEnMView2.ReleaseBitmap(i);
    { Copy the MIO.Parames to ImageEnMView2 }
    ImageEnMView2.MIO.Params[i].Assign(ImageEnMView1.MIO.Params[i]);
    { Set the ImageEnMView2 bottom text }
    ImageEnMView2.ImageBottomText[i].Caption := ImageEnMView1.ImageBottomText[i].Caption;
  end;
  { Scroll ImageEnMView2 to beginning }
  ImageEnMView2.DisplayImageAt(0, 0, 0);
end;