Hi
Sorry but, I think we don't play in the same playground.
For me, a TListView is used with Livebindings to fill it with data coming from a data source (table, query or list of Object). You use it like a TListBox!
With a TListBox it's easy to put in a style whatever you want (in this case a text and a progress bar).
By the way, your code is more for this kind of component,
Create a style (layout, ttext, progressbar)
just to adapt your code in the "for FR in FArray do" loop
set the style of the created item item.stylelookup:='mystyleprogress'
insert an item.applystylelookup
change access to the objects of the item