1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

/////////////////////////////////////////////
// Erstellen der Header- / Footerzeilen &
// Überprüfung der Existenz der Dateien
// bei der Programminitialisierung

procedure TForm1.FormCreate(Sender: TObject);
begin

memo1.Clear;
memo3.Clear;

  if (fileexists('header.txt')) then
    memo1.Lines.LoadFromFile ('header.txt')
  else
    memo1.Lines.Add ('Insert header here.');
  end;

  if (fileexists('footer.txt')) then
    memo3.Lines.LoadFromFile ('footer.txt')
  else
    memo3.Lines.Add ('Insert footer here.');
  end;

end;