两个输入参数，想得到三个返回值，这样的函数该怎么写？
比较两个TStringList,根据特定的条件，返回比较后的三个TStringList

参数：TStringList1, TStringList2
想返回三个值，分别是TStringList3、TStringList4、TStringList5

请问这样的函数该怎么写？谢谢！

[解决办法]
把3，4，5实例化后传入
procedure aa(strList1:TStringList;strList2:TStringList;var strList3:TStringList;var strList4:TStringList;var strList5:TStringList);
[解决办法]
procedure TmpSL(sl1, sl2: TStringList; var sl3, sl4, sl5: TStringList);
begin
//-----函数内容
end;
----------------
调用函数
var
vsl1,vsl2,vsl3:TStringList
begin
TmpSL(TStringList1, TStringList2,vsl1,vsl2,vsl3);
end;
---------------
vsl1,vsl2,vsl3可以认为是TStringList3、TStringList4、TStringList5