我下面这段代码不知道为什么。。就是无法删除啊。。也没有报错!!! 急
麻烦帮我看看是怎么回事!!!
procedure TXmlManage.Delete(xmlFile,DepartmentName,ApplicationName,ApplicationLinks:string);
var
  doc:IXMLDOMDocument;
  node,parentNode:ixmlDomNode;
  NodePath:String;
begin
  doc := CoDOMDocument.create;
  doc.load(xmlFile);
  NodePath:='APP/DEPARTMENT[@NAME='''+DepartmentName+''']/APPLICATION[@NAME='''+ApplicationName+''' and @LINK='''+ApplicationLinks+''']';
  node:=self.GetNode(xmlFile,NodePath);
  if node<>nil then
  begin
      //thenode.ParentNode.ChildNodes.Delete(thenode.ParentNode.ChildNodes.IndexOf(thenode)); //删除当前节点
      parentNode:=node.parentNode;
      if parentNode<>nil then
      begin
         parentNode.removeChild(node);
      end;
  end;
  doc.save(xmlFile);
end;