[[maeyanes]]

Hola...

Solo simplificando un poco el código:

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

Saludos...