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