怎么实现 以下的 OleVariant 的编写

怎么实现 以下的 OleVariant 服务的编写 
1、建立一个全局变量：DsMediaPlay，然后可以操作它的各种属性、函数等。 
DsMediaPlay := CreateOleObject('VodPlayer.VodMpegDecoder'); 
  
2、procedure DsMediaPlay.Sn('注册码') 注册码输入函数，只有正确的注册码，控件才不受任何限制。 
  
3、function DsMediaPlay.InitVod : integer //设置初始化播放器，必须调用，不然不能使用，返回0：没有安装解压卡，1：初始化成功 例如：if DsMediaPlay.InitVod=0 then msgbox("没有检查到神龙卡'"); 
  
4、DsMediaPlay.FileName //设置要播放的文件名。DsMediaPlay.FileName:='d:\情人.DAT'; 
  
5、function DsMediaPlay.OpenEx : integer//打开视频文件。 返回：-1：文件打开错误，-2：歌曲已经加密，密码不正确,返回大于等于0，则打开成功。例如：if DsMediaPlay.OpenEx=-1 then msgbox("文件打开错误,请和供应商联系！") 
  
6、DsMediaPlay.Play //开始播放文件，文件必须先打开。 
  
7、DsMediaPlay.Pause //暂停播放文件，文件必须先打开。 
  
8、DsMediaPlay.Stop //停止播放文件，文件必须先打开。 
  
9、function DsMediaPlay.Duration : integer//得到播放文件的时间长度，单位毫秒。例如：Duration:=DsMediaPlay.Duration 
  
10、DsMediaPlay.Position //得到播放文件的当前播放位置，读写（long 型）。得到：Position:=DsMediaPlay.Position，也可以设置用播放的位置：DsMediaPlay.Position=需要设置的位置。 
  
11、DsMediaPlay.PassWord //歌曲文件加密时，如果需要正确播放，请把密码放到这里，密码长度最大16位。例如：DsMediaPlay.PassWord="12345"
 
  
12、DsMediaPlay.MediaFmt //返回long, 0：DIVX格式，1：VCD格式，2：DVD格式,3:WAVE格式
 
  13、DsMediaPlay.States //得到播放文件的当前状态,返回long。得到播放状态。0：打开 ，1：播放，2：暂停，3：停止，4:结束。
 14、DsMediaPlay.Volume //设置音量，读写(long)，0－－10000。例如：设置：DsMediaPlay.Volume:=Volume, 得到：Volume:=DsMediaPlay.Volume;
 
  15、DsMediaPlay.Brightness // 设置-得到明亮度，读写(long),范围：0－－1000，例如：设置：DsMediaPlay.Brightness:=Brightness, 得到：Brightness:=DsMediaPlay.Brightness;
 
  16、DsMediaPlay.Saturation // 设置-得到饱和度，读写(long),范围：0－－1000，例如：设置：DsMediaPlay.Saturation:=Saturation, 得到：Saturation:=DsMediaPlay.Saturation;
 
  17、DsMediaPlay.Contrast // 设置-得到对比度，读写(long),范围：0－－1000，例如：设置：DsMediaPlay.Contrast:=Contrast, 得到：Contrast:=DsMediaPlay.Contrast;
 
  18、DsMediaPlay.SelectAudioChannel（value:Long）选择声道，value=0为左声道，1为右声道.
 
  19、DsMediaPlay.isVGA //属性读写（LONG），设置为0，则TV输出，设置为1则VGA输出。