Animation nur einmal ablaufen lassen

[SaFu]

Hi

Wie kann ich eine .avi ein enziges mal abspielen lassen. Vielleicht mal etwas Code dann wirds ersichtlicher.

Das hier läuft in einem Timer

Delphi-Quellcode:

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

       if (bild = '.avi') then //Pfad + .avi auf TAnimate
        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;

Jedes mal wenn eine .avi gefunden wird würde ich diese gerne einmal Komplett durchlaufen lassen aber bekomm das irgendwie nicht hin.

Benutze zur Zeit zum Testen die Clock.avi die hat ja mehrere Bilder und wenn die durchgelaufen sind (die .avi) dann der Timer wieder laufen