即使我在代码中更改了标签，标签的颜色也不会更改

问：

我试图改变标签的颜色。代码没有显示任何错误，但似乎也不起作用。

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  { TForm1 }

  TForm1 = class(TForm)

    Label1: TLabel;
    procedure FormCreate(Sender:Tobject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  {TAmpel}
  TAmpel = class
  private
    FAmpel1: string;
  public
    constructor Create;
    procedure schalten();
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

constructor TAmpel.Create;
begin
  FAmpel1 := 'TAmpel1';
end;

procedure TAmpel.schalten();
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin

  Label1.Font.Color := clRed;
end;


end.

我试过了

Label1.StyleElements := Label1.StyleElements; 

但这对我不起作用。

如果有人能帮我就好了......我是拉撒路的新手，我的老师没有解释任何事情