Как работать с двумя веб камерами?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#include <vfw.h> //capCreateCaptureWindow
#include <Clipbrd.hpp> //Clipboard()
//#include "jpeg.hpp"
void *hWndC=0;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(!hWndC){
                HWND hWnd = FindWindow("Shell_TrayWnd", NULL);
                hWndC = capCreateCaptureWindow("WebCamera",WS_CHILD,0,0,0,0,hWnd, 11011);
                capDriverConnect(hWndC,0);
                Timer1->Enabled=1;
        }
        capGrabFrame(hWndC);
        if(capEditCopy(hWndC))
        {
                Graphics::TBitmap *bit = new Graphics::TBitmap;
                //TMemoryStream* Stream = new TMemoryStream();
                bit->Width =320;
                bit->Height=280;
                if(Clipboard()->HasFormat(CF_BITMAP))
                        bit->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP),0);
                Image1->Picture->Bitmap->Width  =bit->Width;
                Image1->Picture->Bitmap->Height =bit->Height;
                Image1->Picture->Bitmap->Canvas->Draw(0,0,bit);
                //Stream->Clear();
                //bit->SaveToStream(Stream);
                //delete Stream;
                delete bit;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled=0;
        if(hWndC){
                capDriverDisconnect(hWndC);
                hWndC=0;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        capGrabFrame(hWndC);
        if(capEditCopy(hWndC))
        {
                Graphics::TBitmap *bit = new Graphics::TBitmap;
                //TMemoryStream* Stream = new TMemoryStream();
                bit->Width =320;
                bit->Height=280;
                if(Clipboard()->HasFormat(CF_BITMAP))
                        bit->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP),0);
                AnsiString aaa = AnsiString()+bit->Width+"x"+bit->Height;
                bit->Canvas->TextOutA(10,10,aaa.c_str());
                Image1->Picture->Bitmap->Width  =bit->Width;
                Image1->Picture->Bitmap->Height =bit->Height;
                Image1->Picture->Bitmap->Canvas->Draw(0,0,bit);
                //Stream->Clear();
                //bit->SaveToStream(Stream);
                //delete Stream;
                delete bit;
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
Timer1->Enabled=0;
        if(hWndC){
                capDriverDisconnect(hWndC);
                hWndC=0;
        }
}
//---------------------------------------------------------------------------