For i:=0 to Treeview.items.count -1 do begin
    td := Treeview.items[i] ;
end ;