截取两个字符串中的字符串并返回结果列表的delphi函数

//s=被截取的字符串
//subbeg=截取开始标记字符串
//subend=截取结束标记字符串
function split(s,subbeg,subend:string):TStringList;
begin
Result:=TStringList.Create;
while Pos(subbeg,s)>0 do
begin
if Pos(subend,s)>Pos(subbeg,s) then
begin
Result.Add(Copy(s,Pos(subbeg,s)+Length(subbeg),Pos(subend,s)-Pos(subbeg,s)-Length(subbeg)));
Delete(s,1,Pos(subend,s)+Length(subend)-1);
end;
end;
end;