Problemas con MCI

[PEDRO_PASAMAR]

Buenas Foro, Estoy intentando crear un VU-METER y sigo las indicaciones de Microsoft y dentro de la llamada del timer que controla la posicion del archivo de audio tengo:

mcip.dwItem := MCI_WAVE_STATUS_LEVEL;
mciSendCommand(MediaPlayer1.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, DWORD(@mcip));
VrLevelBarLeft.Position := HiWord(mcip.dwReturn);
VrLevelBarRight.Position := LoWord(mcip.dwReturn);

Y no consigo que funcione. Alguien sabe como funciona esto.

Gracias por adelantado, feliz Navidad, un saludo

Pedro E. Pasamar Vidal