你是delphi资深软件工程师，问题：怎么实现Shape图形的旋转

在Delphi中，实现Shape图形的旋转通常需要使用GDI+图形接口，因为Delphi的VCL（Visual Component Library）本身并没有直接提供旋转Shape的功能。以下是一种实现Shape图形旋转的基本步骤：

1. 创建一个TImage或TPaintBox组件来作为绘图的容器。
2. 使用GDI+的Graphics对象来绘制Shape。
3. 应用Graphics对象的RotateTransform方法来实现旋转。
4. 使用OnPaint事件或者定时器周期性调用绘图代码，以实时显示旋转效果。

下面是一个简单的示例代码，展示了如何旋转一个椭圆形状：

procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas);
var
  G: Graphics;
  M: TMatrix;
begin
  // 创建一个Graphics对象
  G := Graphics.FromImage(Canvas.Picture.Graphic);

  // 获取当前的转换矩阵
  M := G.Transform;

  // 绕图形中心旋转指定角度
  M.Rotate(45); // 例如旋转45度

  // 设置新的转换矩阵
  G.Transform := M;

  // 在新的旋转矩阵下绘制图形
  G.Ellipse(100, 100, 200, 200); // 绘制一个椭圆形状
end;

在上面的代码中，我们首先获取了一个Graphics对象，然后创建了一个TMatrix对象来表示图形的转换矩阵。我们使用Rotate方法对矩阵进行了旋转操作，然后将旋转后的矩阵赋值给Graphics对象的Transform属性。最后，我们在新的转换矩阵下绘制了一个椭圆形状。