[Artem28]

Код:

procedure NoSound;  
var  
  Value: Word;  
begin  
  Value := GetPort($61) and $FC;  
  SetPort($61, Value);  
end;  

Если не то скажи!