tstringlist 怎么取消默认分隔符

tstringlist 如何取消默认分隔符？
tstringlist中逗号和空格是默认的分隔符，我想用分号做分隔符，但是字符串中一遇到空格还是给分开了，怎么取消呢

[解决办法]
自己分析下字符串好了，不要用它默认的方法~
[解决办法]
自己写个函数分解字符串, 例如:

procedure String_Split(sString, sSeparator: String; tsResult: TStrings);
var
iPos : Integer;
begin
tsResult.BeginUpdate;
try
tsResult.Clear;
iPos := Pos(sSeparator, sString);
while iPos > 0 do
begin
tsResult.Add(Copy(sString, 1, iPos-1));
sString := Copy(sString, iPos + Length(sSeparator) , MaxInt);
iPos := Pos(sSeparator, sString);
end;
tsResult.Add(sString);
finally
tsResult.EndUpdate;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
String_Split( 'Hello, world!;;How do you do!;;Hi;! ', ';; ', Memo1.Lines);
end;