https://freelanceshack.com/blog/how-to-append-to-a-text-file-in-delphi