TVLLAVVideoPlayer playlist ?

[tyfab56]

It's ok, it was the sound componenet that froze the play ... you have to disconnect

Correct code is :

if select1 >= length(arrayfichier1)
then
select1 := 1
else
select1 := select1 +1;

fichier1 := arrayfichier1[select1-1];
titre1.Caption := extractfilename(fichier1);
P1.AudioOutputPin.Disconnect;
P1.Close;
P1.FileName := fichier1;
P1.Open;
P1.AudioOutputPin.Connect(sound.InputPin);
P1.start;