[Страдалецъ]

Я тоже кое-что накосячил. С учетом повторов и других символов так получится:

Код:

 Memo2.Text := Memo1.Text;
 while Pos(#32#32,Memo2.Text) > 0
 do Memo2.Text := StringReplace(Memo2.Text, #32#32, #32, [rfReplaceAll]);
 while Pos(#9#9,Memo2.Text) > 0
 do Memo2.Text := StringReplace(Memo2.Text, #9#9, #9, [rfReplaceAll]);
 Memo2.Text := StringReplace(Memo2.Text, #32, #13#10, [rfReplaceAll]);
 Memo2.Text := StringReplace(Memo2.Text, #9, #13#10, [rfReplaceAll]);