Delphi数据文件合并代码求修改——如何用空格分隔合并多个数据文本文件？

本人是菜鸟，写了个合并数据文件的代码，现在的问题是：合并后的数据文件格式不是我想要的，合并后是分段显示数据子文件，我需要的是用空格分隔所有数据文件，而不是分段显示。请大侠帮帮我！谢谢了！下面是我的原代码：
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
s,F: TextFile;
FirstLine,content: AnsiString;
begin
OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
OpenDialog1.FilterIndex := 2; { start the dialog showing all files }
if OpenDialog1.Execute then
with OpenDialog1.Files do
for I := 0 to Count - 1 do
begin
AssignFile(F, Strings[I]);
Reset(F);
while not Eof(F) do
begin
Readln(F, FirstLine);
Memo1.Lines.Append(FirstLine);
end;
CloseFile(F);
end;
if savedialog1.Execute then
Memo1.Lines.SaveToFile (Savedialog1.Filename);
end;

在
CloseFile(F);
之后增加：
Memo1.Lines.Append(‘ ’);

即：
for I := 0 to Count - 1 do
begin
AssignFile(F, Strings[I]);
Reset(F);
while not Eof(F) do
begin
Readln(F, FirstLine);
Memo1.Lines.Append(FirstLine);
end;
CloseFile(F);
Memo1.Lines.Append(‘ ’);
end;

额