[pesi]

раз надо мало кода то так

Код:

var
str :TStringList;
s :string;
begin
s:='Я пользуюсь delphisources.ru';
str := TStringList.create;
str.text := stringReplace(s, ' ', #13#10, [rfReplaceAll]);
 str.SaveToFile('1.txt');
str.free;
end;