Warum try.. except? Ersetz in der letzten Prozedur einfach Except durch Else und lass das Try weg und gut is...
Also so:
Delphi-Quellcode:
if FileExists(s) then
ImgBild.Picture.LoadFromFile(s)
Else begin
if PCArtikelRegister.ActivePage = TShBild then
MessageDlg(Format(BildAnzeigen_Str01,[s]),mtError,[mbOK],0);
end;