delphi 播放有声的AVI动画 源码

Delphi 播放有声的AVI动画，想知道Delphi如何播放AVI视频，这个源码是很好的例子，核心部分其实是基于Windows中内置的MediaPlayer播放器实现的，关于此播放器的播放，请参考以下代码： 　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 self.MediaPlayer1.FileName:=clock.avi; 　　 self.MediaPlayer1.Display:=self.Panel1;