var filename := ImageEnMViewMultiImages.MIO.ExecuteOpenDialog(
    'Select Multi-Frame Images',  // Title
    -1,                           // DefaultFilter
    -1,                           // Limit To FileType
    True,                         // Always Animate
    True,                         // MultiSelect !!!
    iesfMultiImagesOnly);         // ShowFormats

  if filename <> '' then
  begin
    // ERROR if multiple files are selected:
    ImageEnMViewMultiImages.MIO.LoadFromFile(filename);
  end;

// Execute the open dialog and load the returned list of selected files
filenames := ImageEnMView1.MIO.ExecuteOpenDialog('', '', true, 1, '', true);
ImageEnMView1.MIO.LoadFromFiles(filenames);

function OccurrencesOfChar(const S: string; const C: Char): Integer;
begin
  Result := 0;
  for var i := 1 to Length(S) do
  begin
    if S[i] = C then
      Inc(Result);
  end;
end;

var LoadedFilesCount := OccurrencesOfChar(filenames, #124) + 1;
CodeSite.Send('LoadedFilesCount', LoadedFilesCount);