Laden von Bildern

[Mooshead]

Hallo,

ich möchte mehrere Bilder mit einem Anfangsindex laden.
Also z.B. die Bilder: 'Bild12.jpg' bis 'Bildxx.jpg'. Es sollen so viele Bilder geladen werden wie vorhanden sind.
 var Bilder: array of TPicture;

Delphi-Quellcode:

      repeat
           setlength(bilder,i+1);
           Bilder[i]:=TPicture.Create;
           Bilder[i].LoadFromFile(ExtractFilePath(Application.ExeName)+
                                  Bildername.Text+
                                  IntToStr(StrToInt(Startindex.Text)+i)+
                                  '.jpg');
           inc(i);

      until not (FileExists(ExtractFilePath(Application.ExeName)+
                            Bildername.Text+
                            IntToStr(StrToInt(Startindex.Text)+i)+
                            '.jpg'));

Ich weiß nicht genau wo der Fehler liegt