Приведение "дерева" Treeview к виду html списка.

[Xme1ez]

Здравствуйте, необходимо привести "дерево" Treeview к виду html списка.
Использую цикл обхода каждого элемента и проверяю условия на наличие подузлов и уровни.

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

procedure TForm1.Button7Click(Sender: TObject);
var
  j,b:integer;
begin
j:=0;
   memo3.Lines.Add('<ol>');
    for i := 0 to TreeView1.Items.Count-1 do
      begin
      if (TreeView1.Items.Item[i].HasChildren=false) and (TreeView1.Items.Item[i].Level=j) then
      begin
        rekurs(i);
        j:=TreeView1.Items.Item[i].Level;
      end;
      if TreeView1.Items.Item[i].HasChildren=true then
      begin
        rekurs(i);
      //  memo3.Lines.Add('</ul>');
        memo3.Lines.Add('<ul>');
        j:=TreeView1.Items.Item[i].Level+1;
      end;
      if (TreeView1.Items.Item[i].HasChildren=False) and (TreeView1.Items.Item[i].Level<j) then
      begin
      for b:=j downto TreeView1.Items.Item[i].Level+1 do
      begin
        memo3.Lines.Add('</ul>');
      end;
        rekurs(i);
      end;
      end;
      memo3.Lines.Add('</ol>');
end;

Дерево формируется не правильно, т.к. в 3 условии я уровень уменьшаю и закрываю тег, для тех узлов у которых нет потомков, но если потомки у узла есть, условие не срабатывает.
Помогите исправить.

[eval]

код выбросить, написать рекурсивный обход

[Xme1ez]

Сообщение от eval

код выбросить, написать рекурсивный обход

помоги, если не сложно, с кодом.