Delphi中优秀的字符串分割函数

function SplitString(Source, Deli: string ): TStringList;stdcall;            var            EndOfCurrentString: byte;            StringList:TStringList;            begin            StringList:=TStringList.Create;            while Pos(Deli, Source)>0 do            begin            EndOfCurrentString := Pos(Deli, Source);            StringList.add(Copy(Source, 1, EndOfCurrentString - 1));            Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);            end;            Result := StringList;            StringList.Add(source);            end;