iemPhotos.SelectedImage := j;
iemPhotos.IEBitmap.Canvas.Pen.Color := TRGB2TColor(CreateRGB(0, 255, 0));
iemPhotos.IEBitmap.Canvas.Pen.Width := 7;
iemPhotos.IEBitmap.Canvas.Brush.Style := bsClear;
iemPhotos.IEBitmap.Canvas.Rectangle(1, 1, iemPhotos.IEBitmap.Width, iemPhotos.IEBitmap.Height);

// Display the image index and sizes on bottom of the thumbnail
// Ensure you have set the BottomGap property
procedure TForm1.ImageEnMView1ImageDraw(Sender: TObject; idx: Integer; Left, Top: Integer; Canvas: TCanvas);
begin
  with canvas do
  begin
    Font.Height := 15;
    Font.Color := clWhite;
    TextOut(Left, Top + imageenmview1.ThumbHeight - imageenmview1.bottomgap + 2, IntToStr(idx));
    TextOut(Left, Top, IntToStr(imageenmview1.ImageWidth[idx]) + 'x' + IntToStr(imageenmview1.ImageHeight[idx]));
  end;
end;

procedure TForm1.ImageEnMView1ImageDraw(Sender: TObject; idx, Left, Top: Integer; Canvas: TCanvas);
{Draw a green rect if the thumbnail is portrait}
var
  iWidth: integer;
  iHeight: integer;
begin
  iWidth := ImageEnMView1.ImageOriginalWidth[idx];
  iHeight :=  ImageEnMView1.ImageOriginalHeight[idx];
  if iHeight > iWidth then
  with Canvas do
  begin
    Pen.Color := TRGB2TColor(CreateRGB(0, 255, 0));
    Pen.Width := 4;
    Brush.Style := bsClear;
    Canvas.Rectangle(Left, Top, Left + ImageEnMView1.ThumbWidth, Top + ImageEnMView1.ThumbHeight);
  end;
end;