[M.A.D.M.A.N.]

Код:

procedure OnWaveIn(var Msg: TMessage); message MM_WIM_DATA;

data16 := PData16(PWaveHdr(Msg.lParam)^.lpData);

собс-но этот data16 и записывать.

так же всякие там частоты дискретизации устанавливаются здесь:

Код:

    with header do begin
      wFormatTag := WAVE_FORMAT_PCM;
      nChannels := 1; 
      nSamplesPerSec := discret;
      wBitsPerSample := integer(Bits16) * 8 + 8;
// Число байт в выборке для всех каналов
      nBlockAlign := nChannels * (wBitsPerSample div 8);
// Число байт в секундном интервале для стереосигнала
      nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
// Для формата РСМ строка не нужна
      cbSize := 0;
    end;
соб-сно их и надо в заголовок вписать.