var
  i:integer;
  x, y:integer;
  bmp:TIEBitmap;
begin

  ImageEnView1.Proc.ImageResize(1000, 1000);
  ImageEnView1.Proc.Fill(clWhite);

  x := 0;
  y := 0;
  for i:=0 to ImageEnMView1.ImageCount-1 do
  begin
    bmp := ImageEnMView1.GetTIEBitmap(i);
    bmp.RenderToTIEBitmapEx(ImageEnView1.IEBitmap, x, y, ImageEnMView1.ThumbWidth, ImageEnMView1.ThumbHeight, 0, 0, bmp.Width, bmp.Height, 255, rfTriangle);
    ImageEnMView1.ReleaseBitmap(i);
    inc(x, ImageEnMView1.ThumbWidth + ImageEnMView1.HorizBorder);
    if x > ImageEnView1.IEBitmap.Width - ImageEnMView1.ThumbWidth then
    begin
      x := 0;
      inc(y, ImageEnMView1.ThumbHeight + ImageEnMView1.VertBorder);
      if y > ImageEnView1.IEBitmap.Height then
        break;
    end;
  end;

  ImageEnView1.Update;
end;