Probleme beim öffnen einer Datei

[Luckie]

Setz mal den FileMode auf ReadOnly. Und bau die Funktion mal so um:

Delphi-Quellcode:

Pfad:=OpenDialog1.FileName; 
AssignFile (f1,Pfad); 
{$i-} 
FileMode := fmOpenRead;
Reset (f1);   //Datei öffnen 
if IOResult = 0 then
begin
  //...;
  CloseFile(f1)
end
else
  ShowMessage(SysErrorMessage(GetLastError));
{$i+}