Añadir Informacion en archivos

[muppett]

Hola q tal, me surge una pequeña dificultad. Estoy creando un archivo y necesito que me guarde la informacion cada que doy un clic tengo e sig codigo

Código Delphi [-]
var
f1:textfile;
begin
AssignFile(F1,'c:\ejemplo.txt' );
Rewrite(F1);
Writeln(F1, edit1.text);
Writeln(F1, edit2.text);
CloseFile(F1);
Append(F1);
Reset(F1)





Pero marca error de tipo I/O 32. Me podrian decir que me falta o en q estoy mal