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

var
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { eine Textdatei öffnen }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'Ich hänge jetzt etwas am Dateiende an.'); 
    { Hier steht Code, der ein Flush vor dem Schließen der Datei erfordert. }
    Flush(f);  { Sicherstellen, daß der Text tatsächlich in die Datei geschrieben wird. }
    CloseFile(f);
  end;
end;