#pas
procedure THIVolControl._volSet;
begin
  SetDeviceVolume(Devs[ToInteger(Item)+1]],ToInteger(Val));
end;