const
  cGUID = 'CFD714556B73460ABDAC8F3B582BCAFC';

  procedure OpenNewTabForGroup(AGroup: TCatalogPropGroup);
  var
    AElem: TidElement;
  begin
    // delete results from a former run
    PublicCatalog.RemoveItemsFromTempList(AGroup.IncludeItems);

    // do search
    AElem := TidElement.Create(nil);
    try
      AElem.Prop['OpenNewTab'] := True;
      AElem.Data := AGroup;
      PublicBroadcast(nil, 'ShowGroupResults', AElem);
    finally
      AElem.Free;
    end;
  end;

  function MainFilter: WideString;
  begin
    result := 'select GUID ' +
              'from   idCatalogItem i ' +
              'where  i.idFileType = ''HEIC'' ' +
              'and    (' + 
              '       exists (' + 
              '                select  1 ' + 
              '                from    idcatalogItem i2 ' +
              '                where   i2.PathGUID = i.PathGUID ' +
              '                and     upper(i2.FileName) = upper(replace(i.FileName, ''.HEIC'', ''.MOV'')) ' + ' ' +
              '              )  ' +
              '       or exists (' + 
              '                   select  1 ' + 
              '                   from    idImageVersion i2 ' +
              '                   where   i2.PathGUID = i.PathGUID ' +
              '                   and     upper(i2.FileName) = upper(replace(i.FileName, ''.HEIC'', ''.MOV'')) ' + ' ' +
              '                 )  ' +
              '       ) ' +
              'union all ' + 
              'select GUID ' +
              'from   idCatalogItem i ' +
              'where  i.idFileType = ''MOV'' ' +
              'and    ( ' +
              '       exists (' + 
              '                select  1 ' + 
              '                from    idcatalogItem i2 ' +
              '                where   i2.PathGUID = i.PathGUID ' +
              '                and     upper(i2.FileName) = upper(replace(i.FileName, ''.MOV'', ''.HEIC'')) ' + ' ' +
              '              )  ' +
              '       or exists (' + 
              '                   select  1 ' + 
              '                   from    idImageVersion i2 ' +
              '                   where   i2.PathGUID = i.PathGUID ' +
              '                   and     upper(i2.FileName) = upper(replace(i.FileName, ''.MOV'', ''.HEIC'')) ' + ' ' +
              '                 )  ' +
              '       ) ' +
              'union all ' +
              'select GUID ' +
              'from   idImageVersion i ' +
              'where  i.idFileType = ''HEIC'' ' +
              'and    ( ' +
              '       exists (' + 
              '                select  1 ' + 
              '                from    idcatalogItem i2 ' +
              '                where   i2.PathGUID = i.PathGUID ' +
              '                and     upper(i2.FileName) = upper(replace(i.FileName, ''.HEIC'', ''.MOV'')) ' + ' ' +
              '              )  ' +
              '       or exists (' + 
              '                   select  1 ' + 
              '                   from    idImageVersion i2 ' +
              '                   where   i2.PathGUID = i.PathGUID ' +
              '                   and     upper(i2.FileName) = upper(replace(i.FileName, ''.HEIC'', ''.MOV'')) ' + ' ' +
              '                 )  ' +
              '       ) ' +
              'union all ' + 
              'select GUID ' +
              'from   idImageVersion i ' +
              'where  i.idFileType = ''MOV'' ' +
              'and    ( ' +
              '       exists (' + 
              '                select  1 ' + 
              '                from    idcatalogItem i2 ' +
              '                where   i2.PathGUID = i.PathGUID ' +
              '                and     upper(i2.FileName) = upper(replace(i.FileName, ''.MOV'', ''.HEIC'')) ' + ' ' +
              '              )  ' +
              '       or exists (' + 
              '                   select  1 ' + 
              '                   from    idImageVersion i2 ' +
              '                   where   i2.PathGUID = i.PathGUID ' +
              '                   and     upper(i2.FileName) = upper(replace(i.FileName, ''.MOV'', ''.HEIC'')) ' + ' ' +
              '                 )  ' +
              '       ) ' +
              '';
  end;

  procedure RunSearch;
  var
    ADs: TDBXOMClientDataSet;
    AGroup: TCatalogPropGroup;
  begin
    ADs := PublicCatalog.NewDataset;
    ADs.CommandText := 'select ' + PublicCatalog.FullColumnList('i.') + ' ' +
                       'from   v_catalogitem i ' +
                       'inner join (' + MainFilter + ') as f on f.GUID = i.GUID ' +
                       'UNION ALL ' +
                       'select ' + PublicCatalog.FullColumnList('i.') + ' ' +
                       'from   v_catalogitemversion i ' +
                       'inner join (' + MainFilter + ') as f on f.GUID = i.GUID ' +
                       'order by FileName ' +
                       '';
    ADs.LockType := ReadLockType;
    ADs.OpenSet;

    AGroup := TCatalogPropGroup.Create(nil);
    AGroup.GroupName := 'HEIC with MOV Pairs';
    AGroup.IncludeItems.GUID := cGUID;  // fix the GUID
    AGroup.IncludeItems.AddDataset(ADs, True);
    AGroup.IncludeItems.Disconnect;

    OpenNewTabForGroup(AGroup);

    PublicCatalog.FreeDataset(ADs);

    AGroup.Free;
  end;

begin
  RunSearch;
end;