Function Escreve_Arq(NomeArq,Texto : String ) : Boolean;
var
  sArquivo : tStrings;
Begin
  Try
    sArquivo:=tStringList.Create;
    sArquivo.LoadFromFile(NomeArq);
    sArquivo.Add(string);
    sArquivo.SaveToFile(NomeArq);
    result:=True;
  except
    result:=False;
  end
End;

Ex. de uso:

If Escreve_Arq('c:\Teste.txt','Nova Linha de Texto') then
  ShowMessage('Arquivo alterado com sucesso !!')
else
  ShowMessage('Erro ao alterar arquivo');