晕。。，Framecallback运行几分钟后出错，请大虾出手

源码如下
function FrameCallBack(hWnd:HWND;lpVHdr:PVIDEOHDR):LongInt;stdcall;var
hd,dc:Thandle;
begin
hd:= DrawDibOpen;
dc:=getdc(form1.Panel3.Handle);
DrawDibDraw(hd,dc,0,0,BMPINFO.BmiHeader.biwidth,BMPINFO.bmiHeader.biHeight,@BMPINFO.bmiHeader,lpVHdr^.lpData,0,0,BMPINFO.bmiHeader.biWidth,bMPINFO.bmiHeader.biheight,0);
if dc<>0 then releasedc(form1.Panel3.Handle,dc);
DrawDibClose(hd);
sleep(10);
End;
错误代码 ‘0X40008F84 。。’