Помогите пожалуйста! Pascal ABCNET

[Noob_Infor]

Нужно написать обработчик для Button , когда условия такие задачи такие:
( Фон космоса, картинки земли и луны вставлены, добавлена кнопка )
Создайте анимацию движения месяца вокруг Земли. Для расчета координат верхнего левого угла PictureBox1, который содержит Месяц , можно использовать Параметрическое уравнение окружности: х= Rsin(t), у = Rcos(t), где R - радиус , t - параметр, меняющий свое значение от 0 до 2П

[macomics]

Код для кнопки:

Timer1.Enable := True;

[Noob_Infor]

Сообщение от macomics

Код для кнопки:

Timer1.Enable := True;

macomics, Так если бы только это, там же ещё надо сделать, чтобы оно крутилось, я это не могу понять
procedure Form1.button1_Click
(sender: Object; e: EventArgs);
begin
Timer1.Enable := True;
end;
procedure Form1.Ttimer1_Tick
(sender : Object; e: EventArgs);
begin

[macomics]

По таймеру достаточно выполнять это:

angle := angle + PI * 1 / 360; Repaint;

А вот чтобы крутилось - это надо нарисовать:

PictureBox1.Left := R * sin(angle); PictureBox1.Top := R * cos(angle);

[Noob_Infor]

procedure InitializeComponent;
    begin
        var resources: System.ComponentModel.ComponentResourceManager := new System.ComponentModel.ComponentResourceManager(typeof(Form1));
        self.pictureBox1 := new System.Windows.Forms.PictureBox();
        self.pictureBox2 := new System.Windows.Forms.PictureBox();
        self.button1 := new System.Windows.Forms.Button();
        (System.ComponentModel.ISupportInitialize(self.pictureBox1)).BeginInit();
        (System.ComponentModel.ISupportInitialize(self.pictureBox2)).BeginInit();
        self.SuspendLayout();
        // 
        // pictureBox1
        // 
        self.pictureBox1.BackColor := System.Drawing.Color.Transparent;
        self.pictureBox1.BackgroundImage := (System.Drawing.Image(resources.GetObject('pictureBox1.BackgroundImage')));
        self.pictureBox1.Image := (System.Drawing.Image(resources.GetObject('pictureBox1.Image')));
        self.pictureBox1.Location := new System.Drawing.Point(238, 162);
        self.pictureBox1.Name := 'pictureBox1';
        self.pictureBox1.Padding := new System.Windows.Forms.Padding(12, 12, 1, 2);
        self.pictureBox1.Size := new System.Drawing.Size(295, 300);
        self.pictureBox1.SizeMode := System.Windows.Forms.PictureBoxSizeMode.CenterImage;
        self.pictureBox1.TabIndex := 0;
        self.pictureBox1.TabStop := false;
        // 
        // pictureBox2
        // 
        self.pictureBox2.BackColor := System.Drawing.Color.Transparent;
        self.pictureBox2.Image := (System.Drawing.Image(resources.GetObject('pictureBox2.Image')));
        self.pictureBox2.Location := new System.Drawing.Point(555, 425);
        self.pictureBox2.Name := 'pictureBox2';
        self.pictureBox2.Size := new System.Drawing.Size(229, 246);
        self.pictureBox2.SizeMode := System.Windows.Forms.PictureBoxSizeMode.CenterImage;
        self.pictureBox2.TabIndex := 1;
        self.pictureBox2.TabStop := false;
        // 
        // button1
        // 
        self.button1.Location := new System.Drawing.Point(-1, 630);
        self.button1.Name := 'button1';
        self.button1.Size := new System.Drawing.Size(215, 73);
        self.button1.TabIndex := 2;
        self.button1.Text := 'Начать';
        self.button1.UseVisualStyleBackColor := true;
        self.button1.Click += button1_Click;
        // 
        // Form1
        // 
        self.BackgroundImage := (System.Drawing.Image(resources.GetObject('$this.BackgroundImage')));
        self.ClientSize := new System.Drawing.Size(826, 702);
        self.Controls.Add(self.button1);
        self.Controls.Add(self.pictureBox2);
        self.Controls.Add(self.pictureBox1);
        self.Name := 'Form1';
        self.Text := 'Form1';
        self.TransparencyKey := System.Drawing.Color.Transparent;
        self.Load := Form1_Load;
        (System.ComponentModel.ISupportInitialize(self.pictureBox1)).EndInit();
        (System.ComponentModel.ISupportInitialize(self.pictureBox2)).EndInit();
        self.ResumeLayout(false);
    end;

Ошибка в 55 строке:
Unit1.Form1.inc(55) : Неизвестное имя 'Form1_Load'

Строка выглядит так: self.Load += Form1_Load;

Исправление на := не помогло

[macomics]

Может потому, что надо объявить Form1_Load?

[Noob_Infor]

macomics, Ещё бы знать как это объявить

[macomics]

Например так:

var
  Form1_Load: Какой-тоТип;

или так

procedure Form1_Load(Sender: TObject);
begin

end;

[Noob_Infor]

macomics, У меня истерика, какой тип

[Noob_Infor]

macomics, Ладно, с этим разобралась, ОНИ МНЕ ОПЯТЬ ОШИБКУ ВЫБИЛИ:
Unit1.pas(30) : Неизвестное имя 'Timer1'

Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

type
  Form1 = class(Form)
    procedure button1_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  internal
    {$resource Unit1.Form1.resources}
    pictureBox2: PictureBox;
    button1: Button;
    pictureBox1: PictureBox;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

procedure Form1.button1_Click
(sender: Object; e: EventArgs);
begin
Timer1.Enable := True;
end;
begin
angle := angle + PI * 1 / 360; Repaint;
PictureBox1.Left := R * sin(angle); PictureBox1.Top := R * cos(angle);
end.