Nummer der Datei um 1 erhöhen

[Helmi]

Hallo,

das Problem an deinem Code ist die Variable x : Integer; .

Da diese zur Procedure ButtonClick gehört, also local ist, passiert folgendes:

x wird auf 1 geschrieben, "Datei1.txt" existiert nicht, also wird es erzeugt und die Procedure beendet
Somit entsteht "Datei1.txt".

Beim zweiten Klick ist x wieder 1. Es wird geprüft, ob "Datei1.txt" existiert. Da es nun diese aber gibt
wird die Zeile x := x+1; "aktiv", dadurch wird x = 2 und die Datei "Datei2.txt" erstellt.
Und das wars.

Du musst x in den Private-Abschnitt packen und x einmal auf 1 setzen, z. B. im OnCreate der Form.
Das setzen auf 1 im Button muss dann raus (das x in der Variablendefinition im Button ebenfalls)