Außerdem könntest du die Bilder auch von 1 - 3 durchnummerieren, dann bräuchtest du Case garnicht:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var FName: String;
begin
Inc(Fortschritt);
FName := ExtractFilePath(ParamStr(0)) + 'X_Wing' + IntToStr(Fortschritt) + '.jpg';
if FileExists(FName) then
Image1.Picture.LoadFromFile(Fname);
end;
Mfg