Borrar espacios intermedios

[Delfino]

StringReplace(Str,#32,'',[rfReplaceAll]);

Estas seguro q esto funciona? lo he probado pero parece q no..

yo lo hago asi, pero pensaba q exisitiria alguna funcion q ahorre esto:

function TrimSpaces(str: String) : String;
 var i: Integer;
begin
for i := 1 to length(str)  do
 begin
  if str[i] = ' ' then
  Delete(str,i,1);
 end;
Result := str;
end;

Esta funcion borra solo si hay un solo espacio, habra q modificarla para borrar si hay varios espacios contiguos..