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

procedure TForm1.Logfile;
var
  F : TextFile;
  txttime : string;
  txtdate : string;
begin
  //In eine bereits bestehende Textdatei soll noch ein weiterer Text angefügt werden,
  //ohne dass der bereits vorhandene Text überschrieben wird.

  AssignFile (F, 'E:\Arbeit\log.txt');   //übergibt die Datei an F
  Append(F);                             //fügt eine ein neue Zeile an
  txttime:=timetostr(time);              //speichert die aktuelle Zeit im String
  txtdate:=datetostr(date);              //speichert das aktuelle Datum im String
  Writeln(F,txtdate+ ' ' + txttime);     //schreibt den String (z.B. '03.09.2004 14:57:35' in die Datei)
  Closefile(F);                          //schließt die Datei
end;					

1:
2:

txttime:=timetostr(time);              //speichert die aktuelle Zeit im String
  txtdate:=datetostr(date);