const
  n = 1;
var
  i : Integer;
begin
  for i := 0 to  TreeView1.Items[n].Count-1 do
    Memo1.Lines.Add(TreeView1.Items[n].Item[i].Text);
end;