delphi用TVirtualStringTree,如何遍历列数据?

如下图是SkinVirtualString的列数据,如何像listview这样使用
for i := 0 to self.ListView1.Items.Count - 1 do
begin
str:= ListView1.Items[i].Item[i].SubItems.Strings[2] ;
end;
从而得到列的数据?

VirtualTreeview是一个可以完全代替Delphi自带的Treeview和Listview的免费完全源码控件，但使用复杂。只有委上手后，才能感到方便。

网上有不少介绍，但是我个人意见。还是使用Delphi自带的TTreeView，比较好。

http://my.oschina.net/u/582827/blog/362547

取得父节点， 以及子节点就可以拿到 所有数据了，可以写个些方法遍历