如何用Delphi XE5画一个爱心？

要在Delphi XE5中画一个爱心，可以使用TCanvas对象的方法来绘制。

以下是一个简单的示例代码，它将绘制一个红色的填充爱心：

procedure TForm1.DrawHeart;
var
  x, y: Integer;
  a, b: Double;
begin
  Canvas.Brush.Color := clRed;  // 设置画刷颜色为红色
  Canvas.Pen.Color := clRed;    // 设置画笔颜色为红色

  for x := 0 to Image1.Width do
  begin
    a := (x - Image1.Width / 2) / (Image1.Width / 2);
    b := sqrt(1 - a * a);
    y := Round(b * Image1.Height / 2 + Image1.Height / 2);
    Canvas.Pixels[x, y] := clRed;
  end;

  for x := Image1.Width downto 0 do
  begin
    a := (x - Image1.Width / 2) / (Image1.Width / 2);
    b := sqrt(1 - a * a);
    y := Round(b * Image1.Height / 2 + Image1.Height / 2);
    Canvas.Pixels[x, y] := clRed;
  end;
end;

这段代码使用了两个for循环来绘制爱心的两个半边，每个半边都是通过计算x坐标对应的y坐标来绘制的。这里的计算方法是基于爱心的参数方程：

x = a * (sin(t))^3
y = b * (cos(t) - 1/2 * sin(2t))

其中，a和b是椭圆的两个半轴长度，t的取值范围是0到2π。

通过计算得出的x和y坐标可以使用TCanvas对象的Pixels属性来绘制每个像素。这里使用了Canvas.Brush.Color和Canvas.Pen.Color来设置画刷和画笔的颜色，以便绘制填充的红色爱心。

你可以在需要绘制爱心的事件处理程序中调用这个DrawHeart方法，例如在一个按钮的OnClick事件中。这样，当用户单击按钮时，程序就会绘制一个漂亮的红色爱心。