在方法里的result创建实例后 如何释放？

Delphi(Pascal) code

function test: tstringlist;begin  result := tstringlist.create;end;

这个如何释放？还是就不用释放？

[解决办法]
再获得这个返回值的过程中释放。

var
o: tstrings;
begin
o := test;
o.free;
end;
[解决办法]
在调用的地方释放, 最好是在调用时创建; 可以改成这样:
procedure test(var ls: tstringlist);

即在调用前先创建tstringlist,而不是不在test中创建