try...except probleme

[meximum]

Hi zusammen!

Aus unerklärlichen (oder doch erklärlichen) Gründen funktioniert diese Funktion nicht...:

Delphi-Quellcode:

   try
    // Aus unerklärlichen Gründen funktioniert diese Funktion nicht!!!!
    ImgBild.Picture.LoadFromFile(s);
    except
      if not FileExists(s) then begin
        if PCArtikelRegister.ActivePage = TShBild then begin
                     //'Das gespeicherte Bild %s kann nicht gefunden werden!'
          MessageDlg(Format(BildAnzeigen_Str01,[s]),mtError,[mbOK],0);
        end;
      end;
    end;

gibt gleich einen absturz wenn das vorhandene bild nicht gefunden wurde, sollte jedoch abgefangen
werden...heeelp

MfG

Mexx

[edit=sakura] [delphi]-Tags gesetzt. Mfg, sakura[/edit]