procedure TForm2.FillFromFolder1Click(Sender: TObject);
var
  i: Integer;
begin
  ImageEnMView1.FillFromDirectory(cxShellComboBox1.EditValue, -1, False, '',
    False, '', False, False, iedtNone, iedtNone, iedtNone, False, False);
  ImageEnMView1.SelectedImage := 0;
  { Display the filename, dimensions and color depth for each image - LoadOnDemand must be false }
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    ImageEnMView1.ImageTopText[i] := IEM_ImageDimensions;
    { IEM_ImageDimensions displays the correct image dimension text, but 32bit image color depth text are displayed as 24bit'}
    ImageEnMView1.ImageInfoText[i] := IEM_Filename
  end;
end;