Procent i progressbar

Hej hej...jeg har en progressbar der går fra 0 til 65535 (bruges til lydstryke). Og jeg vil gerne have en label hvor der står hvor mange procent "oppe" progressbaren er på. Altså hvor den står henne i procent hvis i forstår. Hvordan gør jeg nemmest det?









-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------

Kode 

Label1.text := IntToString((pb.position div pb.max)*100) +'%';

Kode 

function TForm1.getPercent(X, Z: Longint): Longint;
begin
  if Z = 0 then Result := 0
  else Result := Longint(Trunc( (X * 100.0) / Z ));
end;

Kode 

Label3.Caption := IntToStr(getPercent(VolBar.Position,VolBar.MaxValue)) +'%';

Kode 

Label3.Caption := IntToStr((VolBar.Position div VolBar.MaxValue)*100) +'%';