__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{         vc1=capCreateCaptureWindow ( "Capture Window", WS_CHILD |   
     WS_VISIBLE ,0,0,Panel1->Width,Panel1->Height,Panel1->Handle,0);
     capDriverConnect(vc1,0);
     capDlgVideoFormat(vc1);
     capPreview(vc1,true);
     capDlgVideoCompression(vc1);
     capPreviewRate(vc1, 10);    
     capPreviewScale(vc1,true);
     capOverlay(vc1, true);
}
//按下錄影按鈕----------------------
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
   capCaptureGetSetup(vc1, &data, sizeof(CAPTUREPARMS));       
    data.dwRequestMicroSecPerFrame=1000000
    data.fLimitEnabled = false;
    data.fCaptureAudio = false; 
    data.fMCIControl = false;
    data.fYield = true;
    data.vKeyAbort = false;
    data.fAbortLeftMouse = false;
    data.fAbortRightMouse = false;        bool flag=capCaptureSetSetup(vc1,&data,sizeof(CAPTUREPARMS));
    capFileSetCaptureFile(vc1,"C:\\Dataccd.avi");
    capCaptureSequence(vc1);
}
//結束錄影---------------------------
void __fastcall TMainForm::Button2Click(TObject *Sender)
{
    capCaptureStop(vc1);
}