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

var datei: Textfile;
begin;
 
 //Mit Assignfile öffnest du die Datei, die du schreiben möchtest.
 assignfile(datei, includeTrailingPathDelimiter(extractfilepath(application.exename)) + 'Dateiname.txt');

 {
  Jetzt kann folgendes passieren:

    a) die Datei existiert schon -> du kannst sie leeren oder weiter in sie schreiben
    b) sie existiert noch nicht -> du erzeugst sie neu

  Für das Beispiel gehen wir von Möglichkeit b) aus.
 }

 //neue, leere Datei
 rewrite(Datei);

 //Schreiben der ersten Zeile in die Datei
 writeLn(datei, {hier das eine Editfeld angeben});

 //Schreiben der zweiten Zeile in die Datei
 writeLn(datei, {hier das andere Editfeld});

 //Ganz wichtig zum Schluss -> alles was du öffnest und nicht mehr benötigst -> schlließen.
 closefile(datei);
 
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
var datei: Textfile;
begin


        assignfile(datei, includeTrailingPathDelimiter(extractfilepath(application.exename)) + 'Dateiname.txt');



            rewrite(Datei);


      writeLn(datei, Edit1.Text);


      writeLn(datei, Edit2.Text);


          closefile(datei);


end;
end.					

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

procedure TForm1.Button1Click(Sender: TObject);
var datei: TextFile;
begin
 assignfile(datei, includetrailingpathdelimiter(extractfilepath(application.exename)) + 'MeineDatei.txt');
 rewrite(datei);

 //Schreiben der Kopfzeile
 writeln('Das ist Ihr Login');
 writeln('');
 writeln('Benutzername: ' + edit1.text);
 writeln('Passwort: ' + edit2.text);

 closefile(datei);
end;