Hi,
See line number 169.
The parameter is ADeviceID, but DeviceID is used.
function TWaveAudioIn.ValidateDeviceID(ADeviceID: DWORD): MMRESULT;
var
DevCaps: TWaveInCaps;
begin
Result := WaveInGetDevCaps(DeviceID, @DevCaps, SizeOf(DevCaps));
end;
Cheers,
Edwin