Создать круглую кнопку

{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses 
  System, System.Windows.Forms,System.Drawing;
var
  b: System.Windows.Forms.PictureBox;
  MF: System.Windows.Forms.Form;
  lbl, lbl1, lbl2, lbl3, lbl4: System.Windows.Forms.label;
  xx, yy, xc, yc, bX, bY, NN: integer;
 
procedure btn_ij_MouseDown(sender: object; btnIJ: System.Windows.Forms.MouseEventArgs);
begin
  // как найти координаты курсора относительно MF, а не всего экрана
 
  bX := System.Windows.Forms.Cursor.Position.X;
  bY := System.Windows.Forms.Cursor.Position.Y;
  
  //Проверяем попал-ли в круг
  //Координаты центра круга   
  xx := b.Left + b.Width div 2;
  yy := b.Top + b.height div 2;
  //попадание
  xc := abs(bX - xx);
  yc := abs(bY - yy);
  if (xc * xc + yc * yc) <= ((b.Height div 2)*(b.Height div 2)) then
  begin
    lbl.Text := 'FFF';
    NN += 1;
    if NN mod 2 = 0 then
      lbl.BackColor := Color.Tomato
    Else
      lbl.BackColor := Color.Red; 
  end;
end;
 
///отпустил кнопку
procedure btn_ij_MouseUp(sender: object; btnIJ: System.Windows.Forms.MouseEventArgs);
begin
  
end;
 
procedure lbl1_MouseMove(sender: object; args: System.Windows.Forms.MouseEventArgs);
begin
  bX := System.Windows.Forms.Cursor.Position.X;
  bY := System.Windows.Forms.Cursor.Position.Y;
  lbl1.Text := bX.ToString + ' ' + by.ToString;   
end;
 
procedure lbl1_MouseMove2(sender: object; args: System.Windows.Forms.MouseEventArgs);
begin
  // как найти координаты курсора относительно MF, а не всего экрана
  bX := System.Windows.Forms.Cursor.Position.X;
  bY := System.Windows.Forms.Cursor.Position.Y;  
  xx := b.Left + b.Width div 2;
  yy := b.Top + b.height div 2;
  //попадание
  xc := bX - xx;
  yc := bY - yy;  
  lbl2.Text := xc.ToString + ' ' + yc.ToString;
  lbl3.Text := xx.ToString + ' ' + yy.ToString;  
  lbl.Text := b.Left.ToString + ' ' + b.Top.ToString;
end;
 
begin
  MF := new Form;
  MF.Text := '__________';
  MF.StartPosition := FormStartPosition.CenterScreen;
  MF.ClientSize := new System.Drawing.Size(800, 450);
  MF.BackColor := Color.YellowGreen;
  
  lbl4 := new System.Windows.Forms.Label();
  lbl4.Left := 155;
  lbl4.Top := 325;
  lbl4.Width := 10;
  lbl4.Height := 10;
  lbl4.BackColor := Color.Black;
  MF.Controls.Add(lbl4);  
  
  b := new System.Windows.Forms.PictureBox;
  b.Top := 325;
  b.Left := 155;
  b.ClientSize := new System.Drawing.Size(100, 100);
 
  //************************************************
  //Представим что квадрат КРУГЛЫЙ =)
  //b.BackgroundImage := Image.FromFile('back_p3.gif');
  b.BackColor := Color.Yellow;
  //b.Enabled := false;
  b.MouseMove += lbl1_MouseMove2;
  b.MouseDown += btn_ij_MouseDown;
  b.MouseUp += btn_ij_MouseUp; 
  MF.Controls.Add(b);
  
  lbl := new System.Windows.Forms.Label();
  lbl.Left := MF.Width div 2;
  lbl.Top := MF.Height - 140;
  lbl.Width := 100;
  lbl.Height := 35;
  lbl.Text := '000';
  lbl.BackColor := Color.Red;
  MF.Controls.Add(lbl);
  
  lbl1 := new System.Windows.Forms.Label();
  Mf.MouseMove += lbl1_MouseMove;
  lbl1.Left := 10;
  lbl1.Top := 10;
  lbl1.Width := 100;
  lbl1.Height := 35;
  MF.Controls.Add(lbl1);
  lbl2 := new System.Windows.Forms.Label();
  lbl2.Text := '000';
  lbl2.Left := 10;
  lbl2.Top := 10 + 40;
  lbl2.Width := 100;
  lbl2.Height := 35;
  MF.Controls.Add(lbl2);
  lbl3 := new System.Windows.Forms.Label();
  lbl3.Text := '000';
  lbl3.Left := 10;
  lbl3.Top := 10 + 40 + 40;
  lbl3.Width := 100;
  lbl3.Height := 35;
  MF.Controls.Add(lbl3);
  
  Application.Run(MF);
end.