[Mp3]

*Ужос...
Код:

Var B,old:ansistring; begin B:=(memo1.text); repeat old:=B; B:=StringReplace(B, #32#32, #32,[rfReplaceAll]); until B=old; memo1.text:=B; end;

где-то так...*

вот это не работает...но программа уже запускается)xd