Ajouter du texte à la fin d'un fichier

Function AppendOrWriteTextToFile(filename: TFilename; WriteText: String): Boolean;
var
f: Textfile;
begin
try
AssignFile(f,filename);
If FileExists(filename) = false then
begin
Rewrite(f);
end
else
begin
Reset(f);
Append(f);
end;
Writeln(f,WriteText);
CloseFile(f);
result := true;
except
result := false;
end;

end;

// Exemple
procedure TForm1.Button1Click(Sender: TObject);
var
dir: String;
log: String;
begin
dir := ExtractFilePath(Application.Exename);
log := 'Last Programm Termination: '+DateTimeToStr(now);
AppendOrWriteTextToFile(dir+'logfile.txt', log)
end;