怎么可以将MEMO里面的所有ITEM不分行，而连续性的一次性写入文本文件

如何可以将MEMO里面的所有ITEM不分行，而连续性的一次性写入文本文件？
各位朋友，假如MEMO里面有以下多行的内容：

行1的内容
行2的内容
行3的内容
行4的内容
。。。。
行一万的内容

请问如何编程，才能将MEMO里面的所有行写入到文本文件里面呢？但有一个要求，就是后面一行要接着前面一行的行末来写进文本文件
最终想要的结果 ：（后一行都是紧跟着上面的一行的）
行1的内容行2的内容行3的内容行4的内容。。。。。。。。。。。。。。。。。。。。。。。。。。。行一万的内容


假如用savetofile这个函数，虽然也可以写入文本文件，但文本文件里面的内容却是这样的：下面的并不是小弟想要的结果
行1的内容
行2的内容
行3的内容
行4的内容
。。。。
行一万的内容


请各位朋友赐教，谢谢！

------解决方案--------------------
var
F : TextFile;
i : Integer;
begin
try
AssignFile(f, 'C:\test.txt');
except
showmessage('羶衄梑善森恅璃﹝');
end;
Append(f);
for i=0 to memo1.lines.count-1 do 
Write(f,memo1.lines[i]);
CloseFile(f);
------解决方案--------------------
还可以 取Memo.Text ,然后用stringreplace替换其中的换行符
------解决方案--------------------
分行的想不分行是容易
没分行的想就难了——因为不知道该在什么位置分
------解决方案--------------------

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);
var
  Fe : TextFile;
  Str: String;
begin
  try
    AssignFile(fe, 'D:\text.txt');
  except
  end;
  if not FileExists('D:\text.txt') then
    Rewrite(Fe);
  Str:= Memo1.Text;
  Str:= StringReplace(Str, #13, '', [rfReplaceAll]);
  Str:= StringReplace(Str, #10, '', [rfReplaceAll]);
  Append(fe);
  Write(fe,Str);
  CloseFile(fe);
end;