Cохранениэ в файл?

[Pronik]

Эсть такой код
procedure TForm1.N6Click(Sender: TObject);
begin
form1.Memo1.Lines.SaveToFile('Proto col.txt');
end;
но при сохранении все предыдущие записи в файле удаляютса
Как зделать так чтобы предыдущие записи оставалис а новыэ дописовалис кфайлу?

[Квэнди]

руками писать в файл
assignfile
append
writeln
closefile

[Pronik]

Сообщение от Квэнди

руками писать в файл
assignfile
append
writeln
closefile

Напишы пример?

[Квэнди]

var i:integer;
f:textfile;
begin
assignfile(f,'путь файла');
append(f);
for i:=0 to memo1.lines.count-1 do
writeln(f,memo1.lines[i]);
closefile(f);
end;