Video dans un panel a l'aide de mciSendString

Salut à tous !

Voila depuis plusieurs jour je m’acharne pour réussir à lire une vidéo dans un panel ou une image à l’aide de mciSendString pourtant  les commande mci que je fourni fonctionne parfaitement sous vb mais sous delphi ???

voila le code que j'ai tanté :

mciSendString(PansiChar('open ' + fichier + ' alias movie parent'+ inttostr(image1.Canvas.Handle)), nil, 0, 0);
mciSendString('play movie from 0', nil, 0, 0);