Fehler in Zeichenprozedur

[64Jabor]

Hallo DP,
ich habe in einem MediaPlayer eine eigene Laustärkeregelung per Canvas-Objekt eines Images.
Die Prozedur sieht so aus:

Delphi-Quellcode:

procedure TJP.DrawVolume(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var r: integer;
begin
r := trunc(sqrt(sqr(X) + sqr(227 - Y)));
BassPlayer.volume := trunc(r * (100/225)); //TBassDLLPlayer BassPlayer
lbVolume.caption := inttostr(trunc(r * (100/225))) + '%'; //Label welches Laustärke anzeigt

ImgRight.Canvas.brush.color := clYellow; //TImage ImgRight, 227 Hoch, 227 Breit
ImgRight.canvas.Pie(- 225, 2, 225, 227 + 225, 225, 227, 0, 2);
ImgRight.Canvas.Pen.color := clBlack;
ImgRight.canvas.Arc(- r, 227 - r, r, 227 + r, r, 227, 0, 227 - r);
IsMuted := FALSE; //boolean IsMuted
end;

Nun möchte ich einen Klick auf das Bild simulieren der mir so eine bestimmte Laustärke einstellt.
Dazu habe ich

Delphi-Quellcode:

DrawVolume(ImgRight, mbLeft, [ssShift], 0, 100 - trunc(BassPlayer.volume * 2.27)); //2.27 ist Verhältnis maximaler BassPlayer.volume und Bildhöhe 227 (227 / 100)

Aber leider tut sich nix -.-

Hat jemand ne Idee?

mfg 64Jabor