录音程序为啥没效果？

var
  Recorder: TRecorder;
begin
  //打开录音设备
  Recorder := TRecorder.Create;  Recorder.FWaveFmt.wFormatTag := WAVE_FORMAT_PCM;
  Recorder.FWaveFmt.wBitsPerSample := 16;
  Recorder.FWaveFmt.nSamplesPerSec := 11025;
  Recorder.FWaveFmt.nAvgBytesPerSec := 22050;
  Recorder.FWaveFmt.nBlockAlign := 2;
  WaveInOpen(@Recorder.WaveHandle, Wave_Mapper, @Recorder.FWaveFmt,
    DWORD(@TRecorder.CallBack), DWORD(@Recorder), CALLBACK_FUNCTION +
    WAVE_ALLOWSYNC);
这个地方打开设备后@Recorder.WaveHandle=0，就是没有获取任何信息
我的电脑上只有一个mic录入设备