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