Рекурсия поиска по treeview.

[Xme1ez]

Здравствуйте, возникла проблема поиска по treeview в delphi.

затрудняюсь, составить алгоритм рекурсии по дереву. Что собственно говоря требуется: пройти по всем узлам дерева и создать такое же дерево только в html. Т.е. список с подуровнями. Узлы 0-ого уровня это нумерованный список, а все остальные - маркированный.
Вот что у меня получилось:

begin
    memo3.Lines.Add('<ol>');
    for i := 0 to TreeView1.Items.Count-1 do
      begin
        if TreeView1.Items.Item[i].HasChildren=false then
          begin
          rekurs(i);
          end
        else
        if TreeView1.Items.Item[i].HasChildren=true then
          begin
            rekurs(i);
            memo3.Lines.Add('<ul>');
            for j := 0 to StrToInt(memo2.Lines[i])-1 do
              begin
                rekurs(j);
              end;
            memo3.Lines.Add('</ul>');
          end;
      end;
      memo3.Lines.Add('</ol>');
end;

function TForm1.rekurs(index: integer):integer;
begin
    memo3.Lines.Add('<li>');
    memo3.Lines.Add('текст');
    memo3.Lines.Add('</li>');
end;

Проблема в том, что неправильно вставляются теги для вложенных узлов.
Помогите, если не трудно.
В мемо2 хранится ко-во подузлов для каждого узла.