[lmikle]

Ну, если по простому, то в цикле вызывать stringreplace до тех пор, пока есть что менять:

Код:

While pos('  ',s)>0 do
S := stringreplace(s,'  ',' ',[]);