Erro ao tocar som pelo auto-falante

Peguei estah dica mas nao estah funcionando. estah dando erro em tempo de execucao. o Erro eh:

...Class EPrivilege with message ´Privileged instruction´....

Este erro dah na hora em que pega o valor na porta de som, ou seja, na funcao GetPort(address: Word): Word;

Quem puder me ajudar, agradeço.