try-except funktioniert nicht

[Maltimore]

hallo,

ich bin es mal wieder. Diesmal mit einem Problem was wahrscheinlich recht schnell gelöst sein wid.

Und zwar: Ich habe noch nie wirklich was mit try except gemacht, und hab mir jetzt angeguckt, wie das anscheinend aussehen muss. Hab versucht es nachzubauen - und ernte prompt immer noch die Fehlermeldung EFOpenerror!! Könnt ihr das mal anschauen? (Achja den Code den ich da habe der stammt nicht von mir also diese eine zeile die mit fs:= beginnt die hab ich hier irgendwo ausm forum und die soll mir ne textdatei öffnen.
Oh und die showmessage wird übrigens nicht ausgeführt und ich hab statt showmessage auch schon abort; ausprobiert das klappte aber ebenfalls nicht

Delphi-Quellcode:

  try
  fs := TFileStream.Create (Filename, fmOpenRead or fmShareDenyNone);
  except
  on EFOpenError do
  showmessage ('kein profil angelegt');
  end;

mfg,

Maltimore