Gravar em Arquivo Texto

Olá amigos bom dia,

Peço a ajuda de vcs para solucionar uma dúvida.

Utilizo a seguinte rotina para gravar dados em um arquivo texto.

varArq : TextFile;Path : String;line_data : StringBegin line_data := 'Qualquer Valor'; Path := ExtractFilePath(Application.ExeName); If (FileExists(Path + '\Arquivo.txt')) Then Begin AssignFile(Arq, Path + '\Arquivo.txt'); ReWrite(Arq); Writeln(Arq,line_data); CloseFile(arq); End;End;

O problema é que não posso apagar as linhas que já existem, pois o ReWrite apaga, como posso gravar sem precisar do ReWrite? Pois sem o ReWrite ocorre um erro.

Obrigado pela força,

Abraços.