Código Delphi [-] S := StringReplace(S, ' ', '', [rfReplaceAll]);
S := StringReplace(S, ' ', '', [rfReplaceAll]);