Como eliminar espacios en el centro de una cadena?

[JoAnCa]

Hola a todos
Necesito hacer una funcion que me permita eliminar los espacios en blanco sobrantes en una cadena, pero los que se encuentran en el interior de la cadena, no al principio y al final, que se puede hacer con Trim

Pero tampoco me sirve con StringReplace, que me sustituiria todos los espacios existentes

Pues lo que quiero es que cuando haya mas de un espacio blanco, me deje solamente uno

Ejemplo:

Esto: 'algo de la cadena'

Lo convierta en esto: 'algo de la cadena'

espero haberme explicado