[AND_REY]

Так попробуй:

Код:

 ....
 assignfile(f,SaveDialog1.FileName);
 Append(f);
 write(f, text);
 closefile(f);