Problem mit Bilder laden

[Landfloh]

Hallo

Ich habe ein Problem.

Ich habe ein Programm geschrieben mit dem ich eigentlich nur Bilder schnell hitereinander abspielen möchte.

Hier der Quellcode:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var Fortschritt: Integer;
begin
  Fortschritt := Fortschritt + 1;
  if Fortschritt = 1 then
  begin
    Image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\X_Wing3.jpg');
  end;
  if Fortschritt = 2 then
  begin
    Image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\X_Wing5.jpg');
  end;
  if Fortschritt = 3 then
  begin
    Image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\X_Wing7.jpg');
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

Wenn ich das Programm starte gibt es keine Fehlermeldung nur eine Warnung das die Veriable möglicherweise nich initialisiert ist. Aber wenn ich auf den Button kliche passiert nicht?

Kannmir jemand helfen?

Landfloh