请用Delphi编程语言写一段画个爱心的代码

以下是用Delphi编写的画爱心的代码：

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
  R: TRectF;
  CX, CY, W, H: Single;
begin
  // 获取画布宽度和高度
  W := Canvas.Width;
  H := Canvas.Height;
  
  // 设置心形的位置和大小
  CX := W / 2;
  CY := H * 3 / 4;
  R := TRectF.Create(CX - 80, CY - 80, CX + 80, CY + 80);

  // 绘制红色填充的心形
  Canvas.BeginScene;
  Canvas.Fill.Color := TAlphaColors.Red;
  Canvas.Stroke.Color := TAlphaColors.Red;
  Canvas.Stroke.Thickness := 2;
  Canvas.FillEllipse(R, 0.8);
  Canvas.FillRect(TRectF.Create(CX - 80, CY - 20, CX + 80, CY + 80), 0, 0, [], 0.8);
  Canvas.FillTriangle(
    TPointF.Create(CX - 80, CY),
    TPointF.Create(CX + 80, CY),
    TPointF.Create(CX, CY + 80), 0.8);
  Canvas.EndScene;
end;

end.

使用方法：

1. 创建一个新的 Delphi 窗体应用程序。
2. 拖放一个 TRectangle 控件到窗体上。
3. 在 Form1 单元中添加上述代码。
4. 运行程序，将会看到画了一个红色的爱心。