Delphi Error : Equals.Caption := ; Expresion expected but ';' found : I do not know where it is wrong, im new learning Delphi.
I followed this : http://delphi.wikia.com/wiki/Simple_Calculator_Tutorial

This My Coding delphi, please help me master

        unit Unit3;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, ExtCtrls;
    
    type
      TForm3 = class(TForm)
        Addition: TButton;
        Subtraction: TButton;
        Multiplication: TButton;
        Division: TButton;
        One: TButton;
        Two: TButton;
        Three: TButton;
        Four: TButton;
        Five: TButton;
        Six: TButton;
        Seven: TButton;
        Eight: TButton;
        Nine: TButton;
        Zero: TButton;
        Decimal: TButton;
        Enter: TButton;
        ClearValue: TButton;
        Panel1: TPanel;
        Negative: TButton;
        Reset: TButton;
        NumberEdit: TEdit;
        Equals: TLabel;
        procedure NegativeClick(Sender: TObject);
        procedure AdditionClick(Sender: TObject);
        procedure SubtractionClick(Sender: TObject);
        procedure MultiplicationClick(Sender: TObject);
        procedure DivisionClick(Sender: TObject);
        procedure EnterClick(Sender: TObject);
        procedure ClearValueClick(Sender: TObject);
        procedure ResetClick(Sender: TObject);
        procedure NumberEditChange(Sender: TObject);
        procedure NumberButtonClick (Sender: TObject);
    
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form3: TForm3;
    
    implementation
    
    {$R *.DFM}
    
     
    var
       FNumber : real;
       Math : string;
    
    
    
    procedure TForm3.NumberButtonClick(Sender: TObject);
    begin
        NumberEdit.Text := NumberEdit.Text + (Sender as TButton).Caption;
    end;
    

    procedure TForm3.NegativeClick(Sender: TObject);
    var
         OriginalNumber: real;
         TextNumber: string;
    begin
         OriginalNumber := -(StrToFloat(NumberEdit.Text));
         TextNumber := FormatFloat('0.##########', OriginalNumber);
         NumberEdit.Text := TextNumber
    end;
    
 
    procedure TForm3.AdditionClick(Sender: TObject);
    begin
         Math := 'Add';
         FNumber := StrToFloat(NumberEdit.Text);
         NumberEdit.Clear;
    end;
    
    procedure TForm3.SubtractionClick(Sender: TObject);
    begin
         Math := 'Subtract';
         FNumber := StrToFloat(NumberEdit.Text);
         NumberEdit.Clear;
    end;
    
    procedure TForm3.MultiplicationClick(Sender: TObject);
    begin
        Math := 'Multiply';
         FNumber := StrToFloat(NumberEdit.Text);
         NumberEdit.Clear;
    end;
    
    procedure TForm3.DivisionClick(Sender: TObject);
    begin
        Math := 'Divide';
        FNumber := StrToFloat(NumberEdit.Text);
        NumberEdit.Clear;
    end;
    
   
    procedure TForm3.EnterClick(Sender: TObject);
    var
       Answer, SNumber : real;
       Text : string;
    
    begin
        SNumber := StrToFloat(NumberEdit.Text);
    
      begin
        if Math = 'Add' then
          Answer := FNumber + SNumber;
          Text := FormatFloat('0.#####', Answer);
          Equals.Caption := '= ' + Text;
          NumberEdit.Clear;
      end;
    
      begin
        if Math = 'Subtract' then
          Answer := FNumber - SNumber;
          Text := FormatFloat('0.#####', Answer);
          Equals.Caption := '= ' + Text;
          NumberEdit.Clear;
      end;
    
      begin
        if Math = 'Multiply' then
          Answer := FNumber * SNumber;
          Text := FormatFloat('0.#####', Answer);
          Equals.Caption := '= ' + Text;
          NumberEdit.Clear;
      end;
    
      begin
        if Math = 'Divide' then
          Answer := FNumber / SNumber;
          Text := FormatFloat('0.#####', Answer);
          Equals.Caption := '= ' + Text;
          NumberEdit.Clear;
    
      end;
    
    end;
    
    
    procedure TForm3.ClearValueClick(Sender: TObject);
      begin
        NumberEdit.Clear;
      end;
    
   
    
    procedure TForm3.ResetClick(Sender: TObject);
      begin
        Equals.Caption := ;
        NumberEdit.Clear;
        FNumber := 0;
        SNumber := 0;
        Math := 'Default';
      end;
    
    end.

This is the task of the university, This screenshot of the error


[This Screenshot Errors][1]


  [1]: https://i.stack.imgur.com/NS7AD.png