Delphi, из связного списка, построить дерево

Дан список вот такой структуры

Code:

  PNode=^TNode;
  TNode=record
    nKey:Integer;
    Parent:integer;
    Name: string;
  end;

Пример списка

Code:

0 -1 Item0
1 0 Item1
2 0 Item2
3 2 Item3
4 2 Item4

P.S: -1 - Это вершина списка

Имея данные списка, составить алгоритм построения дерева изпользуя компонент TreeView
Поделитесь примером