Moin Nailor,
das dürfte an den genannten Stellen eigentlich nur passieren, wenn die Datei schon anderweitig geöffnet ist, oder nicht existiert.
Probier doch mal statt Deines ShowMessage folgende Variante:
ShowMessage(SysErrorMessage(GetLastError));
Dann sollte Dir die passende Windowsfehlermeldung präsentiert werden.
Da TFileStream intern auf der
API CreateFile basiert sollte das eine sinnvolle Meldung bringen.
Oder aber, Du schreibst einfach in den except Abschnitt, unmittelbar vor das exit noch eine Zeile in der raise; steht. Dann wird die zuletzt ausgelöste
Exception noch einmal ausgelöst.