TreeView

[Superlotles]

Здравствуйте !!!
Подскажите как сделать чтобы при нажатии кнопки изменить картинку на
всех ветках компонента TreeView


У меня сдесь ошибку выдает

procedure TForm1.Button7Click(Sender: TObject);
var
i:integer;
NewNode:TTreeNode;
begin
for i:=0 to TreeView1.Items.Count-1 do
begin
NewNode.Item[i].ImageIndex:=1;
end;
end;

end.

Буду благодарен

[Roof]

Привет, Сибиряк

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 TreeView1.Images:= ImageList1;
 for i:=0 to TreeView1.Items.Count-1 do begin
   TreeView1.Items[i].ImageIndex:= 1;
   TreeView1.Items[i].SelectedIndex:= 1;
 end;
end;

Или если ImageList для Treeview уже в инспекторе указан был, то:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 //TreeView1.Images:= ImageList1;
 for i:=0 to TreeView1.Items.Count-1 do begin
   TreeView1.Items[i].ImageIndex:= 1;
   TreeView1.Items[i].SelectedIndex:= 1;
 end;
 TreeView1.Repaint;
end;