Delphi-Quellcode:
pfad := extractfilename(savedialog1.FileName);
AssignFile(F, Pfad + '.txt');
Und wo denkst du landet die Datei, wenn du nur den Dateinamen nimmst, aber ohne Pfadangabe?
Aus: "d:\eigene Daten\Bilder\Test.txt" wird bei dir "Test.txt".
Desweiteren kann man beim SaveDialog eine standard Dateinamenerweiterung angeben, die genommen wird, wenn der Benutzer keine angibt. Das "+'.txt'" erübrigt sich dann auch.
Ich sehe gerade, es fehlt auch noch das wieder einschalten des I/O-checkings {$I+}.