delphi 点在圆内

//到圆心的距离 是否大于半径。
//半径是R (x,y)点圆心，任意一点P（x1,y1）

//（x-x1）*(x-x1)+(y-y1)*(y-y1)>R*R 那么在圆外 反之在圆内
function XYinRing(x1,y1,x,y,r:Integer): Boolean;
begin
  Result := (x-x1)*(x-x1) + (y-y1)*(y-y1) > R*R;
end;