如何在VFW中使用Xvid进行视频压缩?

程序中有这段：
frmmain.CapVar.cbSize:=sizeof(FrmMain.CapVar);   //必须指定cbSize为TCOMPVARS结构大小
              frmmain.CapVar.dwFlags:=ICMF_COMPVARS_VALID;
              frmmain.CapVar.cbState:=0;
             frmmain.CapVar.fccHandler:=mmioFOURCC('d','i','v','x');      ;
              frmmain.CapVar.fccType:=ICTYPE_VIDEO;
              frmmain.CapVar.hic:=ICOpen(ICTYPE_VIDEO,   frmmain.CapVar.fccHandler,   ICMODE_COMPRESS);
             
                frmmain.CapVar.lKey:=15;
   if   (frmmain.CapVar.hic>0)   then
              begin
                    frmmain.OutFormatSize:=ICCompressGetFormatSize(frmmain.CapVar.hic,@frmmain.BmpInfo);
 getmem(frmmain.BmpOutInfo,frmmain.OutFormatSize);
 ICCompressGetFormat(frmmain.CapVar.hic,@frmmain.BmpInfo.bmiHeader,@frmmain.BmpOutInfo^.bmiHeader);
    
                    ICSendMessage(frmmain.CapVar.hic,$60c9,$f7329ace,$acdeaea2);   //非此不可
    
                    frmmain.OutBufferSize:=ICCompressGetSize(frmmain.CapVar.hic,@frmmain.BmpInfo.bmiHeader,@frmmain.BmpOutInfo^.bmiHeader);                    ICSeqCompressFrameStart(@frmmain.CapVar,@frmmain.BmpInfo);
    
                  result   :=   True;   
           
              end   
              else   
              begin   
    Showmessage('请先安装视频压缩编码器');   
                  Exit;   
              end   现在运行时提示上面那个showmesage，怎么安装啊，我有dspack2.34不会用