GetImageBitmap

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TImageList GetImageBitmap";

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Изображение, включающее все картинки списка";

// Список изображений
iml=new TImageList();
iml.Width=iml.Height=64;
icn=new TIcon();
for (i=0;i<5;i++) {
  icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TImageList\\"+i+".ico");
  iml.AddIcon(icn);
}
icn.Delete();

// Изображение всех элементов списка
bmp=new TBitmap();
bmp.Handle=iml.GetImageBitmap();
bmp.PixelFormat=pf24bit;
bmp.Height=iml.Height*iml.Count;

// Панель для изображения
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Top=10;
pnl.ClientWidth =bmp.Width;
pnl.ClientHeight=bmp.Height;

// Контейнер PaintBox
pbx=new TPaintBox(pnl);
pbx.Align=alClient;
pbx.OnPaint=pbx_Paint;

frm.ClientHeight=pnl.Height+pnl.Top*2+stb.Height;
frm.Width=frm.Height;
pnl.Left=(frm.ClientWidth-pnl.Width)/2;

frm.ShowModal();

// Обработчик события OnPaint
function pbx_Paint(pbx)
{
  pbx.Canvas.Draw(0,0,bmp);
}