Fórum TREEVIEW: Um exemplo prático para o Fórum #269099

Ola pessoal

Preciso urgentemente, da ajuda de voces para montar um objeto treeview a partir de um plano de contas de uma tabela ACCESS com ADO. Sei que tem várias mensagens sobre o assunto mas em nenuma delas encontrei um exemplo que ussase da recursividade e fosse dinâmica
para criar a árvore.
Estou tentando utlilizar o treeview pra que apareca a arvore, mas nao
consigo fazer carregar os dados da tabela como quero, pois preciso
controlar a Dinâmica dos dados do plano de contas, ou seja,
como inserir os Nós PAI x FILHO recursivamente. Gostaria que
ficasse com a seguinte estrutura, mas nao sei como fazer:

1 - entrada
---------------1.01- Venda Vista
---------------1.02- Venda Prazo
2 - Saidas
---------------2.01- pagamentos
------------------------------------2.01.01- pagamentos Diversos

Segue o exemplo de um código colocado:
------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { Remove qualquer node existente }
MyTreeNode1 := Add(nil, ´RootTreeNode1´); { Adiciona o node raiz }
{ Adiciona um sub item no node adiciona anteriormente }
AddChild(MyTreeNode1,´ChildNode1´);
{Adiciona outro node raiz}
MyTreeNode2 := Add(MyTreeNode1, ´RootTreeNode2´);
AddChild(MyTreeNode2,´ChildNode2´);
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,´ChildNode2a´);
Add(MyTreeNode2,´ChildNode2b´);
Add(MyTreeNode1, ´RootTreeNode3´);
end;
end;


Muito Obrigado

Alex