[Snake22]

Код:

b:=memo1.Text;
While Pos(#32#32,B)>0 do
B:=StringReplace(B,#32#32,#32,[rfReplaceAll]);
memo1.Text:=(B);

а вообще твой код был верный,но ошибка в нем в том,что #32 блыа в ковычках,надо без ковычек