Дизайнер форм, "Нельзя обратиться к экземплярному полю через тип"

unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms, Events;
 
type
    Form1 = class(Form)
        procedure button1_Click(sender: Object; e: EventArgs);
        procedure Form1_Load(sender: Object; e: EventArgs);
    {$region FormDesigner}
    private 
        {$resource Unit1.Form1.resources}
        button1: Button;
        label2: &Label;
        label3: &Label;
        label4: &Label;
        label5: &Label;
        label6: &Label;
        label1: &Label;
    {$include Unit1.Form1.inc}
    {$endregion FormDesigner}
    public 
        constructor;
        begin
            InitializeComponent;
        end;
    end;
 
var
    Hours, Minutes, BotOn, RollsCount: integer;
 
 
implementation
 
procedure ROLL;
begin
    for var i := 1 to 28 do SendKeys.SendWait('{TAB}');
    SendKeys.SendWait('{ENTER}');
    Hours := DateTime.Now.Hour;
    Minutes := DateTime.Now.Minute;
    RollsCount += 1;
    Form1.Label3.Text := IntToStr(RollsCount); // Нельзя обратиться к экземплярному полю label3 через тип
end;
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
    Sleep(5000);
    ROLL;
    while BotOn = 1 do
    begin
        if (Hours + 1 = DateTime.Now.Hour) and (Minutes + 1 = DateTime.Now.Minute) then ROLL;
        Sleep(750);
    end;
end;
 
procedure Form1.Form1_Load(sender: Object; e: EventArgs) := BotOn := 1;
 
end.

// ...
var
  Hours, Minutes, BotOn, RollsCount: integer;
 
implementation
 
var MyForm : Form1; // <--- Раз
 
procedure ROLL;
begin
    for var i := 1 to 28 do SendKeys.SendWait('{TAB}');
    SendKeys.SendWait('{ENTER}');
    Hours := DateTime.Now.Hour;
    Minutes := DateTime.Now.Minute;
    RollsCount += 1;
    MyForm.Label3.Text := IntToStr(RollsCount); // <--- Три
end;
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
    Sleep(5000);
    ROLL;
    while BotOn = 1 do
    begin
        if (Hours + 1 = DateTime.Now.Hour) and (Minutes + 1 = DateTime.Now.Minute) then ROLL;
        Sleep(750);
    end;  
end;
 
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin
  MyForm := self; // <--- Два
  BotOn := 1;
end;
 
end.