Como quitar espacios intermedios en SQL con replace

[Libras]

Código SQL:

DECLARE @Nombre VARCHAR(MAX) 
DECLARE @total INT
DECLARE @x INT
DECLARE @letra VARCHAR(20)
DECLARE @palabra VARCHAR(MAX)
DECLARE @contador INT
SET @contador=0
SET @Nombre='Carlos      Morales       Gonzalez   de mi    casa'
SET @palabra=''
SET @letra=''
SET @x=1
while @x<=len(@nombre)
BEGIN    
    SET @letra=SUBSTRING(@nombre,@x,1)  
    IF(@letra=' ')
    BEGIN
        SET @contador=@contador+1   
    END
    ELSE
    BEGIN
        SET @contador=0
    END
    IF(@contador<=1)
      SET @palabra=@palabra + @letra
SET @x=@x+1
END
print @palabra
 

saludos!