Связь Label и узел в Treeview

[Женька Good]

Доброго времени суток,

мне необходимо каждому узлу в "дереве" прикрепить путь к файлу. Для решения данной задачи решил создать лейблы для каждого узла.

procedure TForm1.Button7Click(Sender: TObject);
var i:byte;
begin
for I := 0 to TreeView1.Items.Count-1 do begin
  createlabels(i);
end;
end;

procedure TForm1.createlabels(offset: integer);
begin
   path_to_fail := TLabel.Create(form1);
   path_to_fail.Parent := form1;
   path_to_fail.Left := 350;
   path_to_fail.Top:=16*offset;
   path_to_fail.Visible:=true;
   path_to_fail.Name:='label'+inttostr(offset)+IntToStr(TreeView1.Items.Item[offset].Level);
   path_to_fail.Caption:=path_to_fail.Name;

end;

затем при нажатии на кнопку через opendialog получаю путь к файлу и заношу его в label.caption.

procedure TForm1.Button6Click(Sender: TObject);
begin
OpenDialog1.Execute;
Imya_Otkr_fayla:=OpenDialog1.FileName;
(findcomponent('label'+inttostr(TreeView1.Selected.Index)+IntToStr(TreeView1.Selected.Level)) as TLabel).Caption:=Imya_Otkr_fayla;
end;

В чем собственно говоря проблема: не знаю как связать узел в дереве с соответствующим ему лейблом, т.к. в моем варианте, я не правильно обращаюсь к узлу, что влечет за собой неправильное добавление пути к файла к определенному узлу.

может, если кто сталкивался, то предложит другой вариант.
Добавлять путь к файлу в свойство текст узла нельзя.

[Аватар]

На лэйблах свет клином не сошелся. Есть, например, еще StringList, куда пути можно поместить. А у каждго нода есть свойство Data, куда можно поместить индекс итема этого стринглиста

[Женька Good]

Сообщение от Аватар

На лэйблах свет клином не сошелся. Есть, например, еще StringList, куда пути можно поместить. А у каждго нода есть свойство Data, куда можно поместить индекс итема этого стринглиста

немного не понял, что это за компонент такой?

[Аватар]

Сообщение от Женька Good

немного не понял, что это за компонент такой?

Немного? Скорее ничего. Набирай в проге TStringList, выдели и нажми F1. В справке все описано. Ну и гугл подскажет