音量的控制

控制左右声道
在窗体中加trackbar,把max：255;
在uses中加mmsystem
在onchange中
var t,v:longint;
begin
t:=trackbar1.position;
v:=(r shl 8) or (t shl 24);
waveoutsetvolume(0,v);
end;
左 
var t,v:longint;
begin
t:=trackbar1.poition;
waveoutgetvonme(0,@v);
v:=v and $ffff0000 or (t shl 8);
waveoutsetvolume(0,v);
end;
右
var t,v:logint;
begin
t:=trackbar2.position;
waveoutgetvolume(0,@v);
v:=v and $0000ffff or (t shl 24);
waveoutsetvolume(0,v);
end;
初始
var v:longint;
waveoutgetvolum(0,@v);
trackbar1.position：=hi(v);
trackbar2.position：=hi(v shr 16);
end;
点击总音量就完全没声音，左右声道也控制不了，怎么回事？？
我的系统是win000server + delphi6，不会还要用回win98吧？