Delphi 源码，用DirectShow 的方式，进行视频输入设备枚举、视频支持格式枚举、视频预览、视频录像。