const
  cGUID = 'DC21E7383F264DBF92877B208C89FAAD';

  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;

var
  AGroup: TCatalogPropGroup;
begin
  AGroup := TCatalogPropGroup.Create(nil);
  AGroup.GroupName := 'Items without Thumbnail';
  AGroup.IncludeItems.GUID := cGUID;  // fix the GUID

  PublicCatalog.EnumItemsWithoutThumbs(AGroup.IncludeItems, -1);
  OpenNewTabForGroup(AGroup);

  AGroup.Free;
end;