Как правильно создать окно MCI?

//---------------------------------------------------------------------------
 
#include <vcl2.h>
#include <mmsystem.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sSkinManager"
#pragma link "sSkinProvider"
#pragma resource "*.dfm"
TForm1 *Form1;
extern HINSTANCE g_hInstance; 
HANDLE m_hMCIWnd =NULL;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
m_hMCIWnd=MCIWndCreate(Handle,
                           g_hInstance,
                           WS_CHILD | WS_OVERLAPPED,
                           NULL );
    if(NULL == m_hMCIWnd) 
    {
      MessageBox(Handle, "?????? ??? ???????? MCI-????", NULL, MB_OK);
      return;
    }
}
//---------------------------------------------------------------------------
 
__fastcall TForm1::~TForm1(void)
  {
    MCIWndDestroy(m_hMCIWnd);
  }
 //------------------------------------------------------------
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
    MCIWndNew(m_hMCIWnd, "waveaudio");
  
    MCIWndRecord(m_hMCIWnd);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)

#include <vcl2.h>
#include <mmsystem.h>
#include <Vfw.h>
#include <iostream.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HINSTANCE g_hInstance;
HANDLE m_hMCIWnd =NULL;