ICDeCompress解压视频图像成功，但显示出来却花屏。


          if VideoHandShake.VideoData.bKeyFrame then
            RetVal := ICDeCompress(A_FCV.hic, 0, @A_FInInfo.bmiHeader, @VideoHandShake.VideoData.Buf[0],
                                    @A_FOutInfo.bmiHeader, FOutBuf)
          else
            RetVal := ICDeCompress(A_FCV.hic, ICDECOMPRESS_NOTKEYFRAME, @A_FInInfo.bmiHeader, @VideoHandShake.VideoData.Buf[0],
                                    @A_FOutInfo.bmiHeader, FOutBuf);          if RetVal = ICERR_OK then
          begin
              try
                  if VideoForm=nil then
                  begin
                    StretchDIBits(VideoHandShake.PDC,
                                0, 0,
                                160,
                                120,
                                0, 0,
                                A_FOutInfo.bmiHeader.biWidth,
                                A_FOutInfo.bmiHeader.biHeight,
                                FOutBuf,A_FOutInfo,DIB_RGB_COLORS,SRCCOPY);
                  end
                  else
                    StretchDIBits(VideoHandShake.PDC,
                                0, 0,
                                VideoForm.ClientWidth,
                                VideoForm.ClientHeight,
                                0, 0,
                                A_FOutInfo.bmiHeader.biWidth,
                                A_FOutInfo.bmiHeader.biHeight ,
                                FOutBuf,A_FOutInfo,DIB_RGB_COLORS,SRCCOPY)
              except
              end;  压缩和解压都能成功返回，就是在显示的时候是花的。请不要在网上找答案，你能找到的我都找过了。
希望能针对我这个问题来解答，分不是问题。