type
  TMyIEMetaListView = class(TIEMetaListView);

  IEMetaListViewImage.Items.BeginUpdate;
  try
    for var i := 0 to TMyIEMetaListView(IEMetaListViewImage).Groups.Count - 1 do
      TMyIEMetaListView(IEMetaListViewImage).Groups[i].State :=
        TMyIEMetaListView(IEMetaListViewImage).Groups[i].State + [lgsCollapsed];
  finally
    IEMetaListViewImage.Items.EndUpdate;
  end;

procedure TMainForm.IEMetaListGetHeadingText(Sender: TObject; MetaType: TIEMetaType; var Title: string; var Skip: Boolean);
begin
  // Add asterisk to the title if the file contains that type
  if IEContainsMetaData( ImageEnView1.IO.Params, MetaType ) then
    Title := Title + '*';
end;