Carregar TreeView com os itens do Menu

procedure
var
X,I:Integer;
begin
with TvMenu.Items do // compoente treeview
begin
Clear;
// menu principal - eo componente menu
for I := 0 to FrmMenu.MainMenu1.Items.Count-1 do
if FrmMenu.MainMenu1.Items[I].Caption <> ´-´ then
begin
node := Add(nil,FrmMenu.MainMenu1.Items[I].Caption);
[I].Caption));
// preenche sub menu
for X := 0 to frmmenu.MainMenu1.Items[I].Count -1 do
begin [I].Caption,FrmMenu.MainMenu1.Items[I].Items[X].Caption);
// verfica se não é o espacço do suxmenu
if FrmMenu.MainMenu1.Items[I].Items[X].Caption <> ´-´ then
AddChild(node,ExtrairCarecter(FrmMenu.MainMenu1.Items[I].Items[X].Caption));
end;
end;
end;

end;

E como fazer para carregar de um banco de dados os itens? Primeiro gostaria de gravar os itens no banco, depois queria que montasse o TreeView.

Como fazer isso com um treeview e checkbox?