حفظ آیکن مروبط به نود انتخاب شده

[mbshareat]

سلام علیکم
من یک ایمیج لیست و یک تری ویو در فرم گذاشتم.
این کد رو هم هنگام ایجاد نود ها دارم:

  For I:=0 to Treeview1.Items.Count-1 Do

    Treeview1.Items[I].ImageIndex:=Treeview1.Items[I].Level;

متاسفانه وقتی یک نود ( معادل فارسی داره؟) رو انتخاب می کنم، آیکن مربوط به اون موردانتخاب شده به اولین تصویر افزوده شده در ImageLis تبدیل میشه.حتی اگر در level دوم باشم.
این هم برنامه ام:TreeView.rar

[mbshareat]

procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject;

  Node: TTreeNode);

begin

  If TreeView1.Selected=nil then

    Exit;

  TreeView1.Selected.SelectedIndex:=TreeView1.Select  ed.ImageIndex;

end;