TStringList类的字符分割有问题，另贴一替代函数

TStringList类的字符分割有问题，当字符串中有#0到空格之间的任一字符时，都会被当作分割符，郁闷，另贴一替代函数：
function SplitString(Source, Deli: string ): TStringList;
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;