Código Delphi [-] while Pos(' ', Str) > 0 do Delete(Str, Pos(' ', Str), 1);
while Pos(' ', Str) > 0 do Delete(Str, Pos(' ', Str), 1);