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