Probleme beim öffnen einer Datei

[JSch]

Hallo,

ich habe folgende Problem: Mit dem nachfolgenden Code möchte ich eine über das Dialogfeld ausgewählte Datei zum lesen öffnen. Das funktioniert auch, solange das ReadOnly-Attribut der Datei nicht gesetzt ist. Ist das ReadOnly-Attribut der Datei gesetzt, erscheint bei der Ausführung des Reset(f1)-Befehls die Fehlermeldung "... Exception der Klasse EInOutError aufgetreten" .

Delphi-Quellcode:

procedure TMainForm.Laden1Click(Sender: TObject);
var
  f1: file of char;
  Pfad: string;
begin
   if OpenDialog1.Execute then
   begin
      Pfad:=OpenDialog1.FileName;
      TRY
          AssignFile (f1,Pfad);
          //{$i-}
          Reset (f1);   //Datei öffnen
          //{$i+}
          ...
      EXCEPT
          ShowMessage ('Fehler beim Lesen der Datei!');
      END;
...

Was mache ich nun schon wieder falsch?

Vielen Dank für Euren Beistand.

Mfg

JSch[b]