Потомок в TreeView

[саша40]

Привет, пишу программку. И мне надо добавить патомок в TreeView. А для этого требуется переменая типа TTreeNode. Проблема в том, что она генерируется при событие с компонентом, а мне надо чтобы она определялась программно. Как это сделать? Есть примерный код:

var
f: integer;
h: integer; 
c: string; 
begin
if Form1.ComboBox1.Items.Count-1=0 then exit;
f:=Form1.ComboBox1.Items.Count-1; 
for h:=1 To f Do
begin
c:=Form1.ComboBox1.Items.Strings[h]; 
TreeView1.Items.Add(N,c); // N и есть та переменая,должна увеличиватся на 1 в этом цыкле.

[саша40]

Код потомка потом.

[Sciv]

var tn: TTreeNode;

begin
if Form1.ComboBox1.Items.Count-1=0 then exit;
f:=Form1.ComboBox1.Items.Count-1; 
for h:=1 To f Do
begin
c:=Form1.ComboBox1.Items.Strings[h]; 
if h=1 then tn:=TreeView1.Items.Add(Nil,c) else tn:=TreeView1.Items.AddChild(tn,c);
end;

[саша40]

Получилось так:

if Form1.ComboBox1.Items.Count-1=0 then exit;
f:=Form1.ComboBox1.Items.Count-1; //ïîëó÷àåì êîëè÷åñòâî ïëåéëèñòîâ
N:=N.GetNext;
for h:=1 To f Do
begin
c:=Form1.ComboBox1.Items.Strings[h]; //ïîëó÷àåì ñòðîêó
TreeView1.Items.Add(N,c);
Form1.ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + 'PlayList' + c + '1.saved');
for h1:=1 To Form1.ListBox1.Items.Count-1 Do
begin
c1:=Form1.ListBox1.Items.Strings[h1];
TreeView1.Items.AddChild(N,c1);
end;
N:=N.GetNext;
end;

[саша40]

Почему-то не вышло?

[New man]

методом AddChild родителя

[саша40]

Как этой переменой значение пристроить?