Delphi dicas

Como rodar vídeos em um panel

Begin

        if opendialog1.execute then

        begin

                mediaplayer1.filename:= opendialog1.filename;

                mediaplayer1.open;

                mediaplayer1.Perform (wm_lbuttondown,0,$00090009);

                mediaplayer1.Perform (wm_lbuttonup,0,$00090009);

        end;

end;