Try Except End; verschachteln

[Schwedenbitter]

Hallo,

ich weiß nicht genau, ob meine Frage hierher gehört. Sollte das nicht so sein, dann bitte ich den/die Zuständigen, das mal entsprechend zu verschieben.

In meinem Programm werden Grafikverarbeitungen gemacht, die auf Teufel komm raus zu Ende geführt werden müssen. Zudem möchte ich mich nicht darauf verlassen, dass die angelieferten Listen mit den Grafik-Dateien die passenden Endungen zu den Formaten haben. Standard ist bei mir png, dann jpeg, ggf. auch bmp und ansonsten eine Fehlermeldung. Im Moment mache ich das so (Bitte beachten: Das ist nur eine Ausschnitt. Im Programm gibt es kein OpenDialog1, sondern eine TStringList mit zig Dateien):

Delphi-Quellcode:

Procedure Machwas;
Var
   tPNG     : TPngObject;
   tJPG     : TJPEGImage;
   tBMP     : TBitmap;
Begin
   If (Not OpenDialog1.Execute) Then Exit;

   tPNG:=TPngObject.Create;
   tJPG:=TJPEGImage.Create;
   tBMP:=TBitmap.Create;
   Try
      Try
         tPNG.LoadFromFile(OpenDialog1.FileName);
         Image1.Picture.Assign(tPNG);
      Except
         Try
            tJPG.LoadFromFile(OpenDialog1.FileName);
            Image1.Picture.Assign(tJPG);
         Except
            Try
               tBMP.LoadFromFile(OpenDialog1.FileName);
               Image1.Picture.Assign(tBMP);
            Except
               ShowMessage('Unbekanntes Dateiformat:' + #13 +
                  OpenDialog1.FileName);
            End;
         End;
      End;
   Finally
      tPNG.Free;
      tJPG.Free;
      tBMP.Free;
   End;
End;

Kann man das irgendwie kürzer, schöner, eleganter, besser machen?

Mein Problem ist, dass dieser Code mehrfach im Programm auftaucht und diese Schachtelei mit der Zeit nicht besonders schön ist und die Lesbarkeit und damit die spätere Wartung des Codes sehr eingeschränkt sind.

Gruß und danke fürs drüberschauen, Alex