Потеря позиции (Index)

[Sensizu]

Еще одна часть моей проблемы:

dr.Parent.FindChildControl(dr.Directory);
  dr.ItemIndex:=3;
  for i:=1 to dr.Count-dr.ItemIndex+1 do
    begin
    stree.Items.AddChild(stree.Items[0],dr.Items[dr.ItemIndex]);
    stree.Items.Item[stree.Items.GetFirstNode.Index+i].Selected:=True;
    stree.Selected.ImageIndex:=1;
    stree.Selected.SelectedIndex:=1;

    dr.ItemIndex:=dr.ItemIndex+1;
    childFolders:=childFolders+1;
    childFolder[i]:=stree.Items.Item[0].Text+'\'+dr.Items[dr.ItemIndex];
    childFolderIndex[i]:=stree.Items.Item[stree.Items.GetFirstNode.Index+i].Index;
  end;

Айтимы с dr (directory list) перекидываются в дерево stree (TreeView). Каждому перекинутому айтиму присваиваю индекс картинки равный единице (SelectIndex и ImageIndex). Но почему-то не присваивается ImageIndex самому первому айтиму, а вот Selected - присваивается о_О как так, если у них индексы одинаковы? Я вот сижу пытаюсь понять - никак. По проверке сообщением, показалось, что у меня цикл лишний один раз повторяется в начале, если так - то как убрать это? (глядишь, может это повлияет на индексы).

[evg_m]

for i:=1 to dr.Count-dr.ItemIndex+1 do
    begin
//AddChild это функция, которая возвращает добавляемый Item
// который можно и нужно использовать
    ritm:=stree.Items.AddChild(stree.Items[0],dr.Items[dr.ItemIndex]);
    ritm.Selected:=True;
    ritm.ImageIndex:=1;
    ritm.SelectedIndex:=1;

    dr.ItemIndex:=dr.ItemIndex+1;
    childFolders:=childFolders+1;
    childFolder[i]:=stree.Items.Item[0].Text+'\'+dr.Items[dr.ItemIndex];
    childFolderIndex[i]:=ritm.Index;
  end;

stree.Selected.ImageIndex:=1; // присвоение первому из выделенных
   stree.Selected.SelectedIndex:=1;

MultiSelect =True
добавили
выделили(выделен 1)
добавили
выделили(выделено 2)
добавили
выделили(выделено 3)

[Sensizu]

evg_m, Ваш код несомненно правильный, но проблему он не решил. Но вот я порылся в коде и увидел, что другой цыкл блокирует это первое действие... Я его исправил и всё работает =)