Como puedo grabar texto en un Archivo de Texto sin Sobreescribir????

[edme melina esc]

Holas
si alguien de ustedes me puede ayudar a resolver se los agradeceria lo q realizo es una consulta q quiero gravar el resultado de esa consulta en un texto por ejemplo hice esto
(while)
result:=DMSepa.Consultas.Fields[0].AsString+','+DMSepa.Consultas.Fields[1].AsString;
AssignFile(F,'c:\proyecto\movimiento.txt' );
Rewrite(F);
Writeln(F, result);
DMSepa.Consultas.Next;
CloseFile(F);
end; (esta dentro de un while)
pero me sobre escribe
Saludos !!Mel