Animation nur einmal ablaufen lassen

[SaFu]

Der ist für das laden der Bilder zusändig

Ich halte Ihn an um die Avi datei abzuspielen und dannach soll er weiter laufen. Mir ist klar das er dann iwieder von anfang an anfängt aber das er da weiter macht wo er aufgehört hat mach ich dannach

Delphi-Quellcode:

procedure TForm3.Timer2Timer(Sender: TObject);
begin
  if FileListBox1.Items.Count > 0 then
   begin

     if index > FileListBox1.Items.Count -1 then
      index:= 0; 
        FileListbox1.Selected[index]:= true; 
          bild:= Lowercase(ExtractFileExt(Bilddat + FileListBox1.Items[index]));

      if (bild = '.jpg') then //Pfad + .jpg
        begin
          AnVideo.Visible:= False;
          // Laden der Bilder
          Image1.Picture.LoadFromFile(Bilddat + FileListBox1.Items[index]);
        end;

       if (bild = '.avi') then //Pfad + .avi
        begin
        AnVideo.Visible:= True;
        Timer2.Enabled:= False;
        AnVideo.FileName:= Form1.VistaPfadBilder + FileListBox1.Items[index];
        AnVideo.Active:= True;

          if Anvideo.Repetitions = 1 then
           begin
            Timer2.Enabled:= True;
           end;
        end;

     inc(index); 
     Label2.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
   end

   else
    begin
     Timer2.Enabled:= false;
    end;
 end;