Вообще-то судя по скрину, у вас разделителями могут быть не только пробелы. Явно видно, что там табуляция а не пробел, а посему тогда так:
Код:
Memo2.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]);
Memo2.Text := StringReplace(Memo1.Text, #8, #13#10, [rfReplaceAll]);