Как отловить сообщение MM_WIM_DATA?

//---------------------------------------------------------------------------
// запись
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    int dev_id = -1;
    for (int i = 0; i < ListBox1->Items->Count; i++) {
        if (ListBox1->Selected[i]) {
            dev_id = i;
            break;
        }
    }
    if (dev_id < 0) {
        Application->MessageBoxW(L"Устройство записи не выбрано", L"Ошибка", 0);
        return;
    }
    // заполняем структуру WAVEFORMATEX определяющую формат аудио потока
    waveFormat.wFormatTag = WAVE_FORMAT_PCM; // формат аудио сигнала (импульсно-кодовая модуляции, формат данных - целые числа)
    waveFormat.nChannels = 1;                // число каналов
    waveFormat.nSamplesPerSec = 8000;        // частота выборки, Гц
    waveFormat.wBitsPerSample = 16;          // определяет количество битов на сэмпл
    waveFormat.nBlockAlign = (waveFormat.nChannels * waveFormat.wBitsPerSample) / 8; // определяет выравнивание блока в байтах
    waveFormat.nAvgBytesPerSec = waveFormat.nSamplesPerSec * waveFormat.nBlockAlign; // средняя скорость передачи данных в байтах в секунду
    waveFormat.cbSize = 0;
    // открываем устройство
    MMRESULT mmres;
    mmres = waveInOpen(&hWaweIni, dev_id, &waveFormat, (DWORD)Form1->Handle, 0, CALLBACK_WINDOW);
    if(mmres != MMSYSERR_NOERROR) {
        Application->MessageBoxW(L"waveInOpen fail", L"Ошибка", 0);
        return;
    }
    // подготавливаем буфер для данных
    DWORD buf_size = waveFormat.nBlockAlign * waveFormat.nSamplesPerSec * 3; // запишем 3 секунд
    waveHdr.lpData = (LPSTR)malloc(buf_size);
    FillMemory(waveHdr.lpData, buf_size, 0);
    waveHdr.dwBufferLength = buf_size;
    waveHdr.dwFlags = 0;
    mmres = waveInPrepareHeader(hWaweIni, &waveHdr, sizeof(WAVEHDR));
    if(mmres != MMSYSERR_NOERROR) {
        Application->MessageBoxW(L"waveInPrepareHeader fail", L"Ошибка", 0);
        return;
    }
    // отдаем буфер аудиоустройству
    mmres = waveInAddBuffer(hWaweIni, &waveHdr, sizeof(WAVEHDR));
    if(mmres != MMSYSERR_NOERROR) {
        Application->MessageBoxW(L"waveInAddBuffer fail", L"Ошибка", 0);
        return;
    }
    // начинаем запись
    mmres = waveInStart(hWaweIni);
    if( mmres != MMSYSERR_NOERROR) {
        Application->MessageBoxW(L"waveInStart fail", L"Ошибка", 0);
        return;
    }
}
//---------------------------------------------------------------------------
// стоп запись
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    // остановить запись
    waveInStop(hWaweIni);
    // освободить записанный буфер
    waveInUnprepareHeader(hWaweIni, &waveHdr, sizeof(WAVEHDR));
    // закрыть аудиоустройство
    waveInClose(hWaweIni);
    // количество записанных байт
    DWORD bytes = waveHdr.dwBytesRecorded;
    // вывод на график
    __int16 *p = (__int16 *)waveHdr.lpData;
    for (DWORD i = 0; i < bytes; i++) {
        Series1->Add(*p);
        p++;
    }
//  int a = 0;
}
//---------------------------------------------------------------------------