Problem mit FindFirst, FindNext und TFileStream

[AJ_Oldendorf]

Delphi-Quellcode:

try
  { Versuchen, die Datei öffnend zu lesen }
  TmpStream := TFileStream.Create (F.Name, fmOpenRead);
except
  aCardinal := GetLastError;
  ShowMessage(IntToStr(aCardinal));
  Exit;
end;

GetLastError liefert eine 2...

Viele Grüße
Alex