График с проверкой попадпния, Делфи.Графика Опции

[Zundell]

Ребят помогите пожалуйста...никак не могу проверить на попадпние в заданную область...вот код...график начертил..на форме только image и lable1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with image1.Canvas do
  begin
    pen.Color := clBlack;
    brush.Color := clRed;

    moveTo(200,50);
    lineTo(200, 350);
    moveTo(50,200);
    LineTo(350, 200);

    moveTo(200,60);
    lineTo(340,200);
    lineTo(200,340);

    arc(60,60,340,340,200,50,201,350);

    floodFill(199,199, clBlack, fsBorder);
    floodFill(201,199, clBlack, fsBorder);
    floodFill(199,201, clBlack, fsBorder);
    floodFill(201,201, clBlack, fsBorder);
    textout(190,205,'0');
    textout(70,205,'-1');
    textout(307,205,'1');
    textout(190,65,'1');
    textout(190,315,'-1');
  end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<0) and (x*x+y*y<?)or (x>0) and ((x+y)<?) then
form1.Label1.Caption:='Принадлежит' else
form1.Label1.Caption:='Не принадлежит';
end;

end.

Никак не могу понять с чем нужно сравнивать...заранее спасибо.

[Zundell]

Вот исправил 2 процедуры,но всеравно считает ток целые числа.Ребят помогите плиз..завтра сдавать,а я не могу допереть...Заранее Огромное спасибо

procedure TForm1.Button2Click(Sender: TObject);
Var
  x1,y1,y,x:real;
  vivod: string;
  x0:real;
begin
  if RadioButton1.Checked=true then
      x:=0.112
  else
  x:=StrToFloat(Edit1.Text);
  x0:=x;
  y:=Arctan(x/sqrt(1-sqr(x)))+exp(2);
  vivod:='ïðè õ= ' +  FloatToStrF(x0,ffFixed,4,2)  + ' y = ' + FloatToStrF(y,ffFixed,4,2);
  Label4.Caption:=vivod;
  radiobutton1.checked := false;
  Edit1.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
l,m:real;
begin
if (form1.Edit2.text<>'')and(form1.Edit3.text<>'') then
begin
 l:=strtofloat(form1.Edit2.text);
 m:=strtofloat(form1.Edit3.text);
end;
if (l<0) and (sqr(trunc(l))+sqr(trunc(m))<1) and (l>0) and (abs(l+m)<1) then
form1.Label1.Caption:='Ïðèíàäëåæèò' else
form1.Label1.Caption:='Íå ïðèíàäëåæèò';
end;