The attached example uses

<ul>

<li></li>

...

</ul>

I am not sure if it is on purpose, or just forgotten. In the past I used these lists to build menus, so I wrote two tiny classes and a simple example for testing. It should be wrapped in a class I guess, but so far a simple:

TQTXDOMUList.Create(self, procedure(List: TQTXDOMUList)
  begin
   for var i := 0 to high(C_Items) do
    TQTXDOMLItem.Create(List, procedure(Item: TQTXDOMLItem)
    begin
     Item.InnerHtml := C_Items[i];
    end);
  end);

does the job too.