1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var f : TextFile;
begin
  AssignFile(f, 'C:\Verzeichnis\Datei.txt'); // Dateivariable mit Datei verknüpfen.
  {$I-}
  Append(f);
  {$I+}
  IF (IORESULT <> 0) THEN
    ShowMessage('Fehler beim Öffnen der Datei.')
  ELSE BEGIN
    WriteLn(f, 'Erste angehängte Zeile');
    WriteLn(f, 'Zweite angehängte Zeile');
    CloseFile(f); // Immer dran denken die Datei wieder zu schließen.
  END;