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

     AssignFile(F1, 'daten.txt');
     Rewrite(F1);

     Write(F1, 'Persönliche Daten:');
     Write(F1, 'Firma / Name: ' + EName.Text);
     Write(F1, 'Str + Nr: ' + EStr.Text);
     Write(F1, 'PLZ + Ort: ' + EPLZ.Text);
     Write(F1, 'E-Mail: ' + EEMail.Text);
     Write(F1, 'Tel: ' + ETel.Text);
     Write(F1, 'Tel2: ' + ETel2.Text);
     Write(F1, 'Fax: ' + EFax.Text);
     Write(F1, 'Mobil: ' + EMobil.Text);

     CloseFile(F1);