for idx := 0 to ImageEnMView1.ImageCount - 1 do
begin
  // select image
  ImageEnMView1.SelectedImage := idx;
  // if condition
  if (LastCode <> ImageEnMView1.ImageBottomText[idx].Caption) then
  begin
    LastCode := ImageEnMView1.ImageBottomText[idx].Caption;
    // save & clear
  ImageEnMIO2.SaveToFilePDF(ImageEnMView1.ImageBottomText[idx].Caption);
    ImageEnMView2.Clear;
  end;	
  { Add an image to ImageEnMView2 }
  iIndex := ImageEnMView2.AppendImage;
  { Copy iebitmap from ImageEnMView1 to ImageEnMView2 }
  ImageEnMView2.SetIEBitmap(iIndex, ImageEnMView1.IEBitmap);
end;

procedure TForm1.CopySelected1Click(Sender: TObject);
{ Copy the selected image in ImageEnMView1 to ImageEnMView2. }
var
  i: Integer;
  iIndex: integer;
begin
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    if ImageEnMView1.SelectedImage = i then
    begin
      { Add an image to ImageEnMView2 }
      iIndex := ImageEnMView2.AppendImage;
      { Copy iebitmap from ImageEnMView1 to ImageEnMView2 }
      ImageEnMView2.SetIEBitmap(iIndex, ImageEnMView1.IEBitmap);
      { Set the bottom text of ImageEnMView2 }
      ImageEnMView2.ImageBottomText[iIndex].Caption := ImageEnMView1.ImageBottomText[i].Caption;
    end;
  end;
end;