TVLLAVVideoPlayer playlist ?

[tyfab56]

I try to play next clip of a playlist with the TVLLAVVideoPlayer, but my code on the stop events dossn't launch the next clip ...

Does somebody knows the correct sequence of instruction to do this ?

loop is set to false

on stop event code :

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

fichier1 := arrayfichier1[select1-1];
titre1.Caption := extractfilename(fichier1);

P1.FileName := fichier1;
p1.Open;

Application.HandleMessage;
p1.Paused := False;
p1.Start();