Как убрать все пробелы в строке на delphi?

1
2
3
4
5

var str: string;
begin
	str:= 'Просто любая строка';
	str:= StringReplace(str, ' ', '', [rfReplaceAll, rfIgnoreCase]);
end;