[mmonster]

Есть дерево:
- Ветка1
Запись1
- Ветка2
Запись2
-Ветка3
Запись1

Нужно удалить все записи с именем "Запись1"...
Делаю так:

Код:

var
 nd : TTreeNode;
begin
 nd := TreeView1.Items[0];
 while nd <> nil do
 begin
  if nd.Text = 'Запись1' then nd.Delete;
  nd := nd.GetNext;
 end;
end;

Удаляется только первая найденая и выход из цикла. Что тут нетак?