>>591
Countに個数セットして
OnDataイベントでItem.Indexに対応するオブジェクトを文字列化する
Item.Caption := Format('Data:%d', [Item.Index]);

Itemsには触らない。