Не получается к кнопке привязать два действия

unit Unit15;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls;
 
type
  TForm15 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form15: TForm15;
 
implementation
 
{$R *.dfm}
 
uses Unit16;
 
 
procedure TForm15.Button1Click(Sender: TObject);
begin
if
(edit1.Text = '1') and (edit2.Text = '96') and (edit3.Text = '1') and (edit4.Text = '95') and (edit5.Text = '94') and (edit6.Text = '1') and(edit7.Text = '97') and (edit8.Text = '1')
then
MessageBox(Handle, 'Заполните поля следующей ЗНСЕ', 'Всё верно!', 0);
form16.show;
Form15.Visible := false ;
else
MessageBox(Handle, 'Повторите ввод            ', 'Вы допустили ошибку', 0);
end;
 
procedure TForm15.FormCreate(Sender: TObject);
begin
//Edit1
SetWindowLongPtr(Edit1.Handle, GWL_STYLE,
GetWindowLongPtr(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
//Edit2
SetWindowLongPtr(Edit2.Handle, GWL_STYLE,
GetWindowLongPtr(Edit2.Handle, GWL_STYLE) or ES_NUMBER);
//3
SetWindowLongPtr(Edit3.Handle, GWL_STYLE,
GetWindowLongPtr(Edit3.Handle, GWL_STYLE) or ES_NUMBER);
   //4
SetWindowLongPtr(Edit4.Handle, GWL_STYLE,
GetWindowLongPtr(Edit4.Handle, GWL_STYLE) or ES_NUMBER);
      //5
SetWindowLongPtr(Edit5.Handle, GWL_STYLE,
GetWindowLongPtr(Edit5.Handle, GWL_STYLE) or ES_NUMBER);
         //6
SetWindowLongPtr(Edit6.Handle, GWL_STYLE,
GetWindowLongPtr(Edit6.Handle, GWL_STYLE) or ES_NUMBER);
            //7
SetWindowLongPtr(Edit7.Handle, GWL_STYLE,
GetWindowLongPtr(Edit7.Handle, GWL_STYLE) or ES_NUMBER);
               //8
SetWindowLongPtr(Edit8.Handle, GWL_STYLE,
GetWindowLongPtr(Edit8.Handle, GWL_STYLE) or ES_NUMBER);
 
end;
 
end.

procedure TForm15.Button1Click(Sender: TObject);
begin
if (edit1.Text = '1') and (edit2.Text = '96') and (edit3.Text = '1') and (edit4.Text = '95') and (edit5.Text = '94') and (edit6.Text = '1') and(edit7.Text = '97') and (edit8.Text = '1')
then begin
    MessageBox(Handle, 'Заполните поля следующей ЗНСЕ', 'Всё верно!', 0);
    form16.show;
    Form15.Visible := false 
end
    else
        MessageBox(Handle, 'Повторите ввод', 'Вы допустили ошибку', 0);
end;