Запись дополнтельной информации в узлы TreeView

[iiunbreakableii]

Помогите пожалуйста записать в узлы TreeView дополнительную инфу
написал рекурсивную функцию:

procedure TForm1.Search(path: string; node : TtreeNode);
var
  sr : TSearchRec;
begin
  if FindFirst(Path + '\*.*', faAnyFile, sr) = 0 then
  repeat
    if (sr.Name[1] <> '.') then
      if ((sr.Attr and faDirectory) = faDirectory) then
        Search(path+'\'+sr.Name,TreeView1.Items.AddChild(node,sr.Name));
      else
        TreeView1.Items.AddChild(node,sr.Name);
  until FindNext(sr) <> 0;
end;

что-то не соображу как теперь записать в каждый узел в параметр Data путь к файлу. Подскажите, если не трудно. спасибо!

[maxionans]

Делается таким образом:

procedure TForm1.Search(path: string; node : TtreeNode);
var
  sr : TSearchRec;
begin
  if FindFirst(Path + '\*.*', faAnyFile, sr) = 0 then
  repeat
    if (sr.Name[1] <> '.') then
      if ((sr.Attr and faDirectory) = faDirectory) then
        Search(path+'\'+sr.Name,TreeView1.Items.AddChild(node,sr.Name));
      else
        with TreeView1.Items.AddChild(node,sr.Name) do
        begin
          Data := AllocMemory( ( Length( Path ) + Length( sr.Name ) + 2 ) * SizeOf( Char ) );
          StrPCopy( Data, Path + '\' + sr.Name );
        end;
  until FindNext(sr) <> 0;
end;

А доступ к пути осуществляется так:

var
  Path : String
...
  Path := PChar(TreeView1.Items[ Index ].Data);

Перед очисткой TreeView1 или перед удалением отдельных веток TreeView не забывай освобождать память, занятую под путь:

  FreeMem( TreeView1.Items[ Index ].Data );

[iiunbreakableii]

ok, spasibo!