Hi.
Probiers doch über die Entfernung zur Kreismitte.
Delphi-Quellcode:
uses Math;
// ...
procedure Punktzahl(x, y: integer);
var
Entfernung : double;
begin
Entfernung := Sqrt(Power(Kreismite.x - x, 2), Power(Kreismitte.y - y, 2));
if Entfernung < 10 then
ShowMessage('Saumiserabel')
else if // ...
end;