function fullpath(node:TTreenode):string;
var nd:TTreenode;
begin
  nd:=node;
  while nd <> nil do begin
    Result:=nd.Text '/' Result;
    nd:=nd.parent;
  end;
end;