Código Delphi [-]if(Node.HasChildren) then Area := Node.Text; if(not Node.HasChildren) then begin If (Node.Parent<>NIL) Then Area := Node.Parent.Text; Oficina := Node.Text;
if(Node.HasChildren) then Area := Node.Text; if(not Node.HasChildren) then begin If (Node.Parent<>NIL) Then Area := Node.Parent.Text; Oficina := Node.Text;