[Brons14]

Помогите пожалуйста сохранить текст из Edit'а в конец текстового файла

Код:

var
f: TextFile;
text: string;
begin
if SaveDialog1.Execute then
text:=Edit1.Text;
 assignfile(f,SaveDialog1.FileName);
 write(f, text);
 closefile(f);
 Append(f);
end;