In Kreis klicken funktioniert nicht

[SaFu]

Tach,

hatte vor längerer Zeit schonmal das Thema gehabt und konnte das problem bis jetzt nicht beheben.

Ich habe drei TShaps übereinander liegen jetzt so geprüft werden im welchen Shape(als Kreis) sich die Maus befindet.

Das Problem ist jetzt das es zu ungenau ist wie bekomme ich das genauer hin.

So sieht bis jetzt meine Procedure aus

Delphi-Quellcode:

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Inside: Boolean;
  R: Extended;
begin
  if Shape1.Width < Shape1.Height then
   R := Shape1.Width/2
  else
   R := Shape1.Height/2;

  Inside := Sqr(X - R) + Sqr(Y - R) <= Sqr(R);

  if inside then
   begin
     lblPreis.Caption:= '55€';
   end;
end;

Projekt ist mal im Anhang.

Danke schon mal im voraus