var
i, iParent:integer;
tv, tvParent:TTreeNode;
begin
tblOpcMenu.Open; while not tblOpcMenu.Eof do begin iParent := tblOpcMenu.FieldByName('NODO_PADRE').AsInteger; if (iParent = -1) then begin tv := TreeView1.Items.Add(nil, tblOpcMenu.FieldByName('OPC_DESCRIPCION').AsString); tvParent := tv; end
else tv := TreeView1.Items.AddChild(tvParent, tblOpcMenu.FieldByName('OPC_DESCRIPCION').AsString);
tblOpcMenu.Next;
end;
tblOpcMenu.Close;