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;