测试半天，原来是因为这个原因。下面例子中，Result:=‘‘必须写，否则其结果会被累计，真是昏倒！！
function MyPaths(tache: IXMLTaskType) : String; var i: integer; begin result := ‘‘; for i := 0 to tache.paths.Count - 1 do begin if tache.paths.path[i].folder<>‘‘ then result := Result + tache.paths.path[i].folder+#13; end; end;
全局函数的Result一定要每次都初始化，否则上次的结果会被保持
原文：http://www.cnblogs.com/findumars/p/4915984.html