ImageEnMView1.DefaultImageInfoText := iedtFilename;
ImageEnMView1.DefaultImageBottomText := iedtFilename;

// Display the file index above the frame
procedure TForm1.IEFolderMViewGetText(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString);
begin
  if Position = iemtpInfo then
  begin
    // Show first 20 chars of filename
    if Length( Text ) > 20 then
    begin
      SetLength( Text, 20 );
      Text := Text + '...';
  end
  else
  if Position = iemtpBottom then
  begin
    // Show second 20 chars of filename
    if Length( Text ) > 20 then
    begin
      Delete( Text, 1, 20 );
      Text := '...' + Text;
  end;
end;