[Ildar-tsr]

Наверно имеется в виду последняя строчка

Код:

Then TreeView1.Items.Delete(I);

а надо

Код:

Then TreeView1.Items[i].Delete;

А вот зачем заменять конструкцию for..downto..do на while совершенно не понятно.