delphi xe firemonkey 调用VLC播放器播放视频

var
wc:twincontrol;
w:TWinWindowHandle;
begin
player:=TPasLibVlcPlayer.Create(self);
w:=windowhandletoplatform(handle);
wc:=twincontrol.CreateParented(w.Wnd);
wc.Width:=500;
wc.Height:=100;
player.Parent:=wc;
player.Play('d:1.mp4');
end;