如何在选定的TImage周围绘制矩形

procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
  Canvas: TCanvas;
begin
  // 获取TImage的Canvas对象
  Canvas := Image1.Canvas;

  // 设置矩形的位置和大小
  Rect.Left := Image1.Left - 1;
  Rect.Top := Image1.Top - 1;
  Rect.Right := Image1.Left + Image1.Width + 1;
  Rect.Bottom := Image1.Top + Image1.Height + 1;

  // 绘制矩形
  Canvas.Pen.Color := clRed; // 设置矩形边框颜色
  Canvas.Pen.Width := 1; // 设置矩形边框宽度
  Canvas.Brush.Style := bsClear; // 设置矩形内部透明

  Canvas.Rectangle(Rect);
end;