[Assistant]

Код:

var
  i: integer;
begin
  Memo2.Lines.Text := WrapText(StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]), #13#10, [' '], 0);
  for i:=0 to Memo2.Lines.Count-1 do
    Memo2.Lines[i] := TrimRight(Memo2.Lines[i]); //убираем пробелы в конце строк, который получились из-за WrapText
end;

Но вариант ryderx34 короче , а мой чисто познавательный.