TStrings做函数返回值类型的错误

1. //我写了一个函数，返回值是TStrings类型的，函数如下：
2. function func(s:string):tstrings;
3. var
4.   strS:Tstringlist;
5. begin
6.   strS := TStringList.Create;
7.   strS.insert(0,'00000');
8.   result := strS;
9.   strS.free;
10. end;
11. //调用 ：
12. listbox1.items := func(s);//错误，在函数还没有全部完成之前 strS已经释放掉了 。
14. {TStrings是类，类都是引用类型，不是值类型，因为strS.Free意味着这个类被释放了，而在以后的代码中又去引用一个被释放掉的类，肯定要出错的，把函数原型修改成：   
15.   function   TForm1.GetFileVerInfo(FileName:string;   var   R:   TStrings):Boolean;   
16.     
17.   在这个函数中不要对R进行Free的操作，在你真正用完后再释放。}
19. //改后
20. procedure func(s:string;var list:tstrings);
21. begin
22.   list.add('000');
23. end;
24. //调用 
25. var
26.  lst:TStrings;
27.   s:string;
28. begin
29.   lst := TStringList.Create;
30.   func(s,lst);
31.   lst.free;
32. end;
35. //Ok,搞定