Janadeoli

Utilizando o componete, ele busca na tabela do banco, os itens que estão como boolean e então deve checar para item ao carrgar no form, mas não esta carregando o avo.if TVMenuPerfil.Items.Item.Text<>'' thenbeginNode1 := TJvTreeNode(TVMenuPerfil.Items.Item);Node1.Checked := True;TVMenuPerfil.Refresh;tryif TVMenuPerfil.Checked[TVMenuPerfil.Items.Item ] thenbeginnFilho := Node1;nPai := nFilho.GetPrev;nAnt := nPai;nAntAvo:=nAvo;nAvo:= nPai.GetPrev;;if (nPai <> nil) and (nFilho.HasAsParent(nPai)) thenbeginTJvCheckTreeView(FormCadastroPerfil).Checked[nPai] := True;endelsebeginwhile ((not nFilho.HasAsParent(nPai)) or (not nAnt.HasAsParent(nPai))) and (nPai <> nil) dobeginnAnt := nPai;nPai := nAnt.GetPrev;end;end;if (nPai <> nil) and (nFilho.HasAsParent(nPai)) thenbeginTJvCheckTreeView(FormCadastroPerfil).Checked[nPai] := True;end;///avo checadoif (nAvo <> nil) and (nPai.HasAsParent(nAvo)) thenbeginTJvCheckTreeView(FormCadastroPerfil).Checked[nAvo] := True;endelsebeginwhile ((not nPai.HasAsParent(nAvo)) or (not nAntAvo.HasAsParent(nAvo))) and (nAvo <> nil) dobeginnAntAvo := nAvo;nAvo := nAntAvo.GetPrev;end;end;if (nAvo <> nil) and (nPai.HasAsParent(nAvo)) thenbeginTJvCheckTreeView(FormCadastroPerfil).Checked[nAvo] := True;end;TVMenuPerfil.Refresh;end;exceptend;end;