各位前輩，小弟有個問題想請教一下
今天我有一個function回傳的是tstringlist，如下
function test: tstringlist
var
tmp: tstringlist;
begin
tmp := tstringlist.create;
tmp.add('test');
result := tmp;
end;

以下是呼叫的例子
var
temp: tstringlist
begin
temp:= tstringlist.crate;
temp:= test
freeandnil(temp);
end;

當我最後 freeandnil(temp); 的時候，是否會將 function test 裡所crate的tmp也一起free掉??
如果不會的話，請問該如何去free掉??或是要改用別種方法??

雖然程式執行起來不會有錯誤，但是小弟認為呼叫 test 之前已經 createt  stringlist 了，test 中就可以不需要create第二次，因為當您test 回傳的stringlist 參考直會取代原來的呼叫時create的stringlist，原來create的卻變成了記憶體中的孤兒。有錯請指正
Procedure test(tmp: tstringlist);
begin
tmp.add('test');
end;

var
temp: tstringlist
begin
temp:= tstringlist.crate;
test(temp);
freeandnil(temp);
end;