[lmikle]

Код:

for I := TreeView1.Items.Count-1 DownTo 0 Do
 if TreeView1.Items[i].Text = 'Запись1' 
   Then TreeView1.Items.Delete(I);