用Pascal语言加载文件

我用TMediaPlayer播放视频文件,在下图中TMediaPlayer1的属性页FileName项设置要播放的视频文件,一切正常(此时DeviceType设为dtAutoSelect);若删除这里设置,改为在其他事件中加载这个视频文件,则发生编译错误(如下图);若把DeviceType设为dtAVIVideo则没有错误提示,但也不播放视频.请高手们指点下在事件中加载视频文件怎样才能让它正确播放?谢谢!