如何把memo中的内容添加到文本文档中？(50分)

我想向一个txt文件中保存词语，利用memo、savedialog，如何把memo中的内容添加到文本文档中？要求不将原有文本覆盖，每一个词一行。

procedure TForm1.Button1Click(Sender: TObject);

var
vStringList: TStringList;

begin

if SaveDialog1.Execute then
begin
vStringList := TStringList.Create;

try
vStringList.LoadFromFile(SaveDialog1.FileName);

Memo1.Lines.AddStrings(vStringList);

finally
vStringList.Free;

end;

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;
end;

//大概就是这样了，先读出来，再存。。。

var
FText: Textfile;
Filename: string;
i: Integer;
begin
if SaveDialog1.Execute then
begin
Filename := SaveDialog1.FileName;
Assign(FText, Filename);
Append(FText);
for i := 0 to Memo1.Lines.Count - 1do
Writeln(FText, Memo1.Lines);
CloseFile(FText);
end;
end;

以上两种方法都可实现

要求不将原有文本覆盖，每一个词一行。
应该这么写：
procedure TForm1.Button1Click(Sender: TObject);
var
F:Textfile;
sl:Tstringlist;
i:integer;
begin
if savedialog1.Execute then
begin
sl:=Tstringlist.Create;
sl.DelimitedText:=memo1.Lines.Text;
Assignfile(F,savedialog1.FileName);
Reset(F);
Append(F);
for i:=0 to sl.Count-1do
Writeln(F,sl.strings);
closefile(F);
sl.Free;
end;
end;

介绍个DELPHI博客, 自己去找找看.
http://iinsnian.cnblogs.com