По умолчанию в DynamicAppearance есть только один объект - Text. Соответственно, из кода вы должны убрать все упоминания AItem.Objects.TextObject, AItem.Objects.AccessoryObject и изменить заполнение текста в ListViewItem (например так):
for Item in [1..10] do
ListView1.Items.Add.Data['Text1']:= Format('Regular item %d.%d', [Group, Item]);
Как добавить свои объекты в LIstViewItem читайте Using the DynamicAppearance Value или смотрите видео.