Создать алгоритм для определения попадания точки с координатами (x,y) в мишень.

object Form1: TForm1
  Left = 0
  Top = 77
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #1055#1086#1087#1072#1076#1072#1085#1080#1077' '#1090#1086#1095#1082#1080' '#1074' '#1086#1073#1083#1072#1089#1090#1100
  ClientHeight = 850
  ClientWidth = 717
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel: TPanel
    Left = 8
    Top = 112
    Width = 700
    Height = 700
    BevelOuter = bvSpace
    TabOrder = 0
    object Image: TImage
      Left = 0
      Top = 0
      Width = 700
      Height = 700
    end
  end
  object GroupBox: TGroupBox
    Left = 8
    Top = 8
    Width = 700
    Height = 45
    Caption = ' '#1043#1088#1072#1085#1080#1094#1099' '#1086#1073#1083#1072#1089#1090#1080' '
    TabOrder = 1
    object LabelX1: TLabel
      Left = 16
      Top = 19
      Width = 34
      Height = 13
      Caption = 'x_'#1085#1072#1095':'
    end
    object LabelX2: TLabel
      Left = 152
      Top = 19
      Width = 34
      Height = 13
      Caption = 'x_'#1082#1086#1085':'
    end
    object LabelY2: TLabel
      Left = 424
      Top = 19
      Width = 34
      Height = 13
      Caption = 'y_'#1082#1086#1085':'
    end
    object LabelY1: TLabel
      Left = 288
      Top = 19
      Width = 34
      Height = 13
      Caption = 'y_'#1085#1072#1095':'
    end
    object SpinEditX1: TSpinEdit
      Left = 56
      Top = 16
      Width = 49
      Height = 22
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxValue = 0
      MinValue = 0
      ParentFont = False
      TabOrder = 0
      Value = -3
    end
    object SpinEditX2: TSpinEdit
      Left = 192
      Top = 16
      Width = 49
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 3
    end
    object SpinEditY2: TSpinEdit
      Left = 464
      Top = 16
      Width = 49
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 3
      Value = 3
    end
    object SpinEditY1: TSpinEdit
      Left = 328
      Top = 16
      Width = 49
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 2
      Value = -3
    end
    object Button: TButton
      Left = 560
      Top = 14
      Width = 121
      Height = 25
      Caption = #1079#1072#1076#1072#1090#1100' '#1086#1073#1083#1072#1089#1090#1100
      TabOrder = 4
      OnClick = ButtonClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 56
    Width = 701
    Height = 50
    Caption = ' '#1042#1099#1073#1086#1088' '#1086#1073#1098#1077#1082#1090#1072' '
    TabOrder = 2
    object ComboBox: TComboBox
      Left = 16
      Top = 19
      Width = 121
      Height = 21
      Style = csDropDownList
      ItemIndex = 0
      TabOrder = 0
      Text = '  '#1086#1090#1088#1077#1079#1086#1082' ('#1083#1080#1085#1080#1103')'
      Items.Strings = (
        '  '#1086#1090#1088#1077#1079#1086#1082' ('#1083#1080#1085#1080#1103')'
        '  '#1087#1088#1103#1084#1086#1091#1075#1086#1083#1100#1085#1080#1082
        '  '#1101#1083#1083#1080#1087#1089)
    end
    object LEx1: TLabeledEdit
      Left = 192
      Top = 19
      Width = 41
      Height = 21
      EditLabel.Width = 12
      EditLabel.Height = 13
      EditLabel.Caption = 'x1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      LabelPosition = lpLeft
      ParentFont = False
      TabOrder = 1
      Text = '-3'
    end
    object LEy1: TLabeledEdit
      Left = 288
      Top = 19
      Width = 41
      Height = 21
      EditLabel.Width = 12
      EditLabel.Height = 13
      EditLabel.Caption = 'y1'
      LabelPosition = lpLeft
      TabOrder = 2
      Text = '0'
    end
    object LEx2: TLabeledEdit
      Left = 384
      Top = 19
      Width = 41
      Height = 21
      EditLabel.Width = 12
      EditLabel.Height = 13
      EditLabel.Caption = 'x2'
      LabelPosition = lpLeft
      TabOrder = 3
      Text = '3'
    end
    object LEy2: TLabeledEdit
      Left = 480
      Top = 19
      Width = 41
      Height = 21
      EditLabel.Width = 12
      EditLabel.Height = 13
      EditLabel.Caption = 'y2'
      LabelPosition = lpLeft
      TabOrder = 4
      Text = '0'
    end
    object Button2: TButton
      Left = 560
      Top = 16
      Width = 121
      Height = 25
      Caption = #1085#1072#1088#1080#1089#1086#1074#1072#1090#1100
      Enabled = False
      TabOrder = 5
      OnClick = Button2Click
    end
  end
  object Button3: TButton
    Left = 321
    Top = 818
    Width = 75
    Height = 25
    Caption = #1090#1077#1089#1090
    Enabled = False
    TabOrder = 3
    OnClick = Button3Click
  end
end