// Konvertiert einen Integer Wert in einen Hexadezimal-String
Function InttoHexStr(Num : Byte) : String;
Var EZ, ZZ : Byte;
      EZStr, ZZStr : String;
begin
   EZ := Num div 16;
   ZZ := Num mod 16;
   if ez > 9 then begin
      Case EZ of
         10 : EZStr := 'A';
         11 : EZStr := 'B';
         12 : EZStr := 'C';
         13 : EZStr := 'D';
         14 : EZStr := 'E';
         15 : EZStr := 'F';
      end;
   end
   else
      EZStr := inttostr(EZ);
   if Zz > 9 then begin
      Case ZZ of
         10 : ZZStr := 'A';
         11 : ZZStr := 'B';
         12 : ZZStr := 'C';
         13 : ZZStr := 'D';
         14 : ZZStr := 'E';
         15 : ZZStr := 'F';
      end;
   end
   else
      ZZStr := inttostr(ZZ);
   Result := EZStr+ZZStr;
end;

// hier kommen als Value nur Werte zwischen 0 und 255 in Frage
// da meine Trackbar auf diese Werte begrenzt ist
procedure TTWKom.setVolume(Value: Longint);
var
   v : DWORD;
   a : Longint;
   HexStr : String;
begin
   if active then
   begin
      fVolume := Value;
      // get Volume-Value
      HexStr := InttoHexStr(Value);
      // set this value for right and left channel
      HexStr := '$'+HexStr+HexStr;
      v := StrToInt(HexStr);
      waveoutsetvolume(acmOut.FWaveOutHandle, v);
   end;
end;

procedure TTWKom.setVolume(Value: Longint);
begin
   if active then
   begin
      fVolume := Value;
      waveoutsetvolume(acmOut.FWaveOutHandle, (Word(Value) shl 16) or (Word(Value)));
   end;
end;

function TTWKom.getVolume: Longint;
var
   v : pdword;
   res : mmresult;
begin
   Result := fVolume;
   if active then begin
      res := waveOutGetVolume(acmOut.FWaveOutHandle, @v);
      if Integer(res) <> 0 then
         result := 0
      else
        result := Integer(v);
   end;
end;