Sound auslesen und in % umrechnen

[Andy-h]

Hallo

Ich habe mich an einem Mediaplayer versucht.
Musikabspielen geht auch. Jetzt möchte ich zwei label in denen man die Lautstärke in % ablesen kann.
ich habe diesen Code gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  VolLi, VolRe: Word;
begin
  GetVolume(VolLi,VolRe);

  Label1.Caption:=IntToStr(VolLi);
  Label2.Caption:=IntToStr(VolRe);
end;

es wierd aber ja nur der Wave wert (oder wie man das auch ausdrück angezeigt)z.b. 65535

Jetzt wollte ich einfach den wert mit zwei zusäzlichen Variablen umrechen:

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
 TonLi, TonRe, VolLi, VolRe: Word;
begin
  GetVolume(VolLi,VolRe);
  TonLi:= Volli / 65535 * 100;
  TonRe:= VolRe /65535 * 100;
  Label1.Caption:=IntToStr(TonLi);
  Label2.Caption:=IntToStr(TonRe);
end;

Es werden keine Fehler angezeigt bis ich compiliere dan kommen die fehler:

[Pascal Fehler] Unit4.pas(117): E2010 Inkompatible Typen: 'Word' und 'Extended'
[Pascal Fehler] Unit4.pas(118): E2010 Inkompatible Typen: 'Word' und 'Extended'
[Pascal Fataler Fehler] MP.dpr(5): F2063 Verwendete Unit 'Unit4.pas' kann nicht compiliert werden

Wie Programmiere ich so eine Rechnung?

Davor habe ich noch das stehen:

Delphi-Quellcode:

procedure GetVolume(var volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  volL:= 0;
  volR:= 0;
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  // get volume
  waveOutGetVolume(hWO, @vol);
  volL:= vol and $FFFF;
  volR:= vol shr 16;
  waveOutClose(hWO);
end;


procedure SetVolume(const volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol:= volL + volR shl 16;
  // set volume
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO);
end;

Gruß
Andy