Delphi TStringList Delimiter Always use Spaces Bar Together

var
   s: string;
   sl: TStringList;
begin
   sl := TStringList.Create;
   s := 'Users^foo bar^bar foo^foobar^barfoo';
   sl.Delimiter := '^';
   sl.DelimitedText := s;
   ShowMessage(sl[1]);
end;