Ошибка TreeView: unable to insert an item

procedure TForm1.UpdateTree;
var c: char; Root, N: TTreeNode; S: Int64;
begin // Очистить дерево и прочитать список доступных дисков
  TreeView.Items.BeginUpdate; // Запретить перерисовку дерева в процессе его изменения
try
    TreeView.Items.Clear; // Очистить дерево
    Root.Data := Pointer(1);
    Root.ImageIndex:=0;
    Root.SelectedIndex:=0;
    for c:='A' to 'Z' do
    begin
      S:=DiskSize(byte(c)-byte('A')+1);
      if S>=0 then // Если диск доступен, то размер всегда неотрицательный
       begin
       ShowMessage(IntToStr(DiskSize(byte(c)-byte('A')+1)));
        N:=TreeView.Items.AddChild (Root,C+':');
        N.ImageIndex:=1;
        N.SelectedIndex:=1;
        N.HasChildren:=True; // вставить значок "+" слева от вершины дерева
      end;
    end;
    Root.Expanded:=True; // Раскрыть дерево
  finally
    TreeView.items.EndUpdate; // Обновление дерева закончено, его можно перерисовать
  end;
end;

var c: char; Root, N: TTreeNode; S: Int64;
begin
  TreeView.Items.Clear; // Очистить дерево
  TreeView.Items.BeginUpdate; // Запретить перерисовку дерева в процессе его изменения
  try
    Root.Data := Pointer(1);
//    Root.ImageIndex:=0;
//    Root.SelectedIndex:=0;
    Root:=treeview.items.add(nil,'main');
    for c:='A' to 'Z' do
    begin
      S:=DiskSize(byte(c)-byte('A')+1);
      if S>=0 then // Если диск доступен, то размер всегда неотрицательный
       begin
        n:=TreeView.Items.AddChild (Root,C+':\ ('+IntToStr(DiskSize(byte(c)-byte('A')+1))+')');
//        N.ImageIndex:=1;
//        N.SelectedIndex:=1;
        N.HasChildren:=True; // вставить значок "+" слева от вершины дерева
      end;
    end;
  finally
    TreeView.items.EndUpdate; // Обновление дерева закончено, его можно перерисовать
    Root.Expanded:=True; // Раскрыть дерево
  end;
end;

Root:=treeview.items.add(nil,'main');