100元现金求助！！！！！！AVI文件存储问题。。。。。。。。。在线等待。。。。。。。。

本人为实现屏幕录像，和屏幕录像专家差不多，现在已经实现了将图像写入AVI文件，但现在写的都是未经压缩的帧，文件大得惊人！我看过VB中的一些例子，里面有Public Declare Function AVISaveOptions Lib "avifil32.dll"  (ByVal hWnd As Long, ByVal uiFlags As Long, ByVal nStreams As Long, ByRef ppavi As Long,ByRef ppOptions As Long) As Long 
，该函数可设置多种压缩格式，不知在Delphi中如何实现此函数呢？    请高手为小弟调试通下面这个例子，小弟愿出100元现金请教！！！！  愿意帮助小弟的朋友请与我联系，我会将一段测试的源代码发给你，
你只需要为我调试通过就可以了！本人联系方式QQ：17257498邮箱：[email protected]