Определение попадания точки в границы заданной фигуры

procedure TForm1.Button1Click(Sender: TObject);
begin
 x:=StrToFloat(Edit1.Text);
 y:=StrToFloat(Edit2.Text);
if (sqr(x-4)+(sqr(y-4))<9) and (abs(x-4)+abs((y-4)/3)>1)
then
Panel1.Caption:=' мы попали в заштрихованную область'
else if (abs(sqr(x-4)+(sqr(y-4))-9)<0.001)or(abs(abs(x-4)+abs((y-4)/3)-1)<0.001) then
Panel1.Caption:='Точка лежит на границе заштрихованной области'
else
Panel1.Caption:='Точка лежит за пределами заштрихованной области'
end;

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  x, y, distance: real;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
type
  Status = (noEntry, yesEntry, onBorder);
const
  Info : array[Status] of string =
    (
    'Точка лежит за пределами заштрихованной области',
    'Мы попали в заштрихованную область',
    'Точка лежит на границе заштрихованной области'
    );
 
function Check(X, Y : Double) : Status;
begin
  if (sqr(x - 4) + (sqr(y - 4)) < 9) and (abs(x - 4) + abs((y - 4) / 3) > 1) then Check := yesEntry
  else if (abs(sqr(x - 4) + (sqr(y - 4)) - 9) < 0.001) or
    (abs(abs(x - 4) + abs((y - 4) / 3) - 1) < 0.001) then Check := onBorder
  else Check := noEntry;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  x := StrToFloat(Edit1.Text);
  y := StrToFloat(Edit2.Text);
  Panel1.Caption := Info[Check(X, Y)];
end;
 
// Обработчик события OnMouseDown для Image1, не забудь его назначить в Инспекторе Объектов
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.Caption := Info[Check((X - 15.5) / 16.25,
                               ((Image1.Height - Y) - 13) / 16)];
end;
 
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  d:integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
//рисуем картинку
procedure TForm1.FormCreate(Sender: TObject);
var x0,y0,i:integer;
begin
d:=30;
Image1.Width:=10*d+d div 2;
Image1.Height:=Image1.Width;
x0:=d;
y0:=Image1.Height-d;
with Image1.Canvas do
 begin
   brush.Color:=clWhite;
   rectangle(0,0,Image1.Width,Image1.Height);
   brush.Color:=clGray;
   ellipse(x0+d,y0-7*d,x0+7*d,y0-d);
   brush.Color:=clWhite;
   polygon([point(x0+3*d,y0-4*d),point(x0+4*d,y0-7*d),point(x0+5*d,y0-4*d),point(x0+4*d,y0-d),
            point(x0+3*d,y0-4*d)]);
   moveto(x0,y0);
   lineto(x0,y0-9*d);
   moveto(x0-3,y0-9*d+5);
   lineto(x0,y0-9*d);
   lineto(x0+3,y0-9*d+5);
   moveto(x0,y0);
   lineto(x0+9*d,y0);
   moveto(x0+9*d-5,y0+3);
   lineto(x0+9*d,y0);
   lineto(x0+9*d-5,y0-3);
   font.Size:=7;
   for i:=1 to 8 do
    begin
      moveto(x0-3,y0-i*d);
      lineto(x0+8*d+10,y0-i*d);
      moveto(x0+i*d,y0+3);
      lineto(x0+i*d,y0-8*d-10);
      textout(x0+i*d-5,y0+5,inttostr(i));
      textout(x0-10,y0-i*d-5,inttostr(i));
    end;
  textout(x0-10,y0-9*d,'Y');
  textout(x0+9*d-5,y0+5,'X');
  textout(x0-5,y0+5,'0');
 end;
end;
//определяем вводом координат
procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
 x:=StrToFloat(Edit1.Text);
 y:=StrToFloat(Edit2.Text);
if (sqr(x-4)+(sqr(y-4))<9) and (abs(x-4)+abs((y-4)/3)>1)
then
Panel1.Caption:=' мы попали в заштрихованную область'
else if (abs(sqr(x-4)+(sqr(y-4))-9)<0.001)or(abs(abs(x-4)+abs((y-4)/3)-1)<0.001) then
Panel1.Caption:='Точка лежит на границе заштрихованной области'
else
Panel1.Caption:='Точка лежит за пределами заштрихованной области'
end;
 
// определяем нажатием мыши
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var x0,y0:integer;
begin
x0:=5*d; //центр круга по Х
y0:=Image1.Height-5*d;//по Y
//если модуль разности расстояния от точки до центра круга и радиуср\м круга <1
//или  точка с точностью 1 попадает на линию ромба , то точка на границе
if (abs(sqrt(sqr(x-x0)+sqr(y-y0))-3*d)<1) or(abs(abs(x-x0)+abs(y-y0)/3-d)<1)
then Panel1.Caption:='Точка лежит на границе заштрихованной области'
else if (sqr(x-x0)+(sqr(y-y0))<9*d*d) and (abs(x-x0)+abs((y-y0)/3)>d)
then Panel1.Caption:=' мы попали в заштрихованную область'
else
Panel1.Caption:='Точка лежит за пределами заштрихованной области'
end;
 
end.