Problem mit Bilder laden

[Die Muhkuh]

Und dann stellen wir noch sicher, dass auch immer der PathDelimiter dran ist:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const Bilder: array[1..3] of string = ('X_Wing3.jpg','X_Wing5.jpg','X_Wing7.jpg');
begin
  Fortschritt := Fortschritt + 1;
  Image1.Picture.LoadFromFile(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + Bilder[Fortschritt]);
  Timer1.Enabled := Fortschritt < 3;
end;