// Does not work:
  ImageEnMView1.MIO.LoadFromFileAuto('C:\Windows\System32\imageres.dll');
  ImageEnMView1.Update;

procedure AddImageListToImageEnMView(ImageList: TImageList; ImageEnMView: TImageEnMView);
var
  i: Integer;
  Icon: TIcon;
  IEBitmap: TIEBitmap;
begin
  // Clear the TImageEnMView before adding new images
  ImageEnMView.Clear;

  for i := 0 to ImageList.Count - 1 do
  begin
    // Create a new TIcon and retrieve the icon from the ImageList
    Icon := TIcon.Create;
    try
      ImageList.GetIcon(i, Icon);

      // Create a new TIEBitmap to hold the icon image
      IEBitmap := TIEBitmap.Create;
      try
        // Assign the icon directly to the TIEBitmap
        IEBitmap.Assign(Icon);

        // Append the TIEBitmap to the TImageEnMView
        ImageEnMView.AppendImage(IEBitmap);
      finally
        IEBitmap.Free;
      end;
    finally
      Icon.Free;
    end;
  end;

  // Adjust thumbnail settings for better visibility
  ImageEnMView.ThumbWidth := ImageList.Width + 5;
  ImageEnMView.ThumbHeight := ImageList.Height + 5;
  ImageEnMView.HorizBorder := 5;
  ImageEnMView.VertBorder := 5;
end;

procedure AddImageListToImageEnMView(ImageList: TImageList; ImageEnMView: TImageEnMView);
var
  i: Integer;
begin
  ImageEnMView.Clear;

  // Add an ID for every bitmap in a TImageList
  for i := 0 to ImageList.Count - 1 do
  begin
    ImageEnMView.InsertImage(I);
    ImageEnMView.ImageID[I] := I;
  end;
end;

procedure TForm1.ImageEnMView1ImageIDRequest(Sender: TObject; Index, ID: Integer; var Bitmap: TBitmap);
begin
  // Retrieve the image from a TImageList
  Bitmap := TBitmap.create;
  ImageList1.GetBitmap(ID, Bitmap);
end;