请问如何引用自定义函数类型为tstringlist的返回值？(50分)

定义了函数
function emailvalite(str: string): ?tstringlist;
---
var
s:tstringlist;
begin
s:=tstringlist.create;
s.clear;
s:=emailvalite(str);
为什么s没有内容!如果把s换为memo1.lines就可以了!

Function emailvalite(Str:String):TStringList;
begin
Result:=TStringList.Create;
Result.Text:=Str;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var s:TStringList;
begin
s:=emailvalite('s'+#13#10+'jkjkjkjk'+#13#10);
ShowMessage(s.Text);
end;

或者用可变参数.

我看是不是你函数内容写错了。
function TForm1.emailvalite(str: string): tstringlist;
begin
Result:=TStringList.Create;
Result.Text:=Str;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:tstringlist;
str : string;
begin
s:=tstringlist.create;
s.clear;
str:= 'ok';
s:=emailvalite(str);
ShowMessage(s.Text);
end;

谢谢,问题解决了,差在:
Result:=TStringList.Create;
Result.Text:=Str;