Solltest Du da nicht den SaveDialog nehmen und nicht den OpenDialog?
Delphi-Quellcode:
if SaveDialog.Execute then
try
AssignFile(Datei,SaveDialog.FileName);
If FileExists(SaveDialog.FileName) then
reset(Datei)
else
rewrite(Datei);
wobei Datei: File of ... ist.
Grüße
Klaus