Die Eingabe des Dateinamens erfolgt über ein Edit-Feld und das ist schlecht,
denn wie leicht begeht man einen Tippfehler!!!
Also entweder einen OpenFileDialog benützen oder zumindest prüfen, ob die Datei überhaupt existiert.
Delphi-Quellcode:
if Edit1.Text = '
'
then exit;
fn := Edit1.Text;
if not FileExists(fn)
then raise Exception.CreateFmt('
Datei <%s> existiert nicht', [fn]);
// <====
with TFileStream.Create(fn, fmOpenReadWrite)
do