在Delphi中，有没有一种方法可以在图片周围塑造一个按钮

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ButtonRect: TRect;
  ButtonWidth, ButtonHeight: Integer;
  ButtonLeft, ButtonTop: Integer;
  Button: TButton;
begin
  // 设置按钮的大小和位置
  ButtonWidth := 80;
  ButtonHeight := 30;
  ButtonLeft := X - ButtonWidth div 2;
  ButtonTop := Y - ButtonHeight div 2;
  ButtonRect := Rect(ButtonLeft, ButtonTop, ButtonLeft + ButtonWidth, ButtonTop + ButtonHeight);

  // 创建按钮并设置属性
  Button := TButton.Create(Self);
  Button.Parent := Image1; // 将按钮放置在TImage组件上
  Button.BoundsRect := ButtonRect;
  Button.Caption := 'Click Me';

  // 设置按钮的事件处理程序
  Button.OnClick := ButtonClick;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('Button Clicked!');
end;