Guardar Datos en TXT

[kael]

Bueno , soy bien nuevo en esto de delphi y la verdad me e basado en manuales y cosas para hacer "algo" ... mi problema es que quiero insertar datos en un archivo txt sin que sobreescriba lo ya escrito :

procedure Insertar_Datos();
Var
txt : TextFile;
sexo : string;
begin
sexo := IntToStr(frmMain.ComboBox19.ItemIndex);
if not FileExists(AppPath + 'datos.txt') then begin
AssignFile(txt, AppPath + 'datos.txt');
Rewrite(txt);
Writeln(txt, ''+frmMain.Edit5.Text+','+frmMain.Edit7.Text+','+sexo+','+frmMain.Edit8.Text+',0,,,,,,,,,');
CloseFile(txt);
end
else begin
AssignFile(txt, AppPath + 'datos.txt');
rewrite(txt);
Write(txt, ''+frmMain.Edit5.Text+','+frmMain.Edit7.Text+','+sexo+','+frmMain.Edit8.Text+',0,,,,,,,,,');
CloseFile(txt);
end;
end;

esto es lo que yo tengo , lo que me puse a pensar q podria ser es el rewrite pero el problema que si yo saco esa linea el programa se recarga y no escribe la linea.

eso daria lugar a algo asi :

nombre,pass,sexo,mail,0,,,,,,,,,

cuando se ejecuta ese codigo inserta la linea y si no existe crea el archivo , pero el problema que cuando vuelves a insertar otro registro sobreescribe el ya escrito

Si me pueden sacar la duda les agradeceria mucho

Saludos