Ошибка в mmsystem.pas

"Объявление WaveInClose неверно."

Вы можете просто вновь объявить это сами:

function WaveInClose(hWaveIn: THandle): Word; far; external 'MMSYSTEM' index 505;

-Steve Schafer [000790]