Delphi (где ошибка ?)

var
  Form1: TForm1;
  A1, A2, A3, A4, A5, A6, A7, A8, A9, A0, A10, A11 : Integer;





implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=('123')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
A2:=2;
Edit1.Text:=IntToStr(A2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
A3:=3;
Edit1.Text:=IntToStr(A3);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
A4:=4;
Edit1.Text:=IntToStr(A4);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
A5:=5;
Edit1.Text:=IntToStr(A5);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
A6:=6;
Edit1.Text:=IntToStr(A6);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
A7:=7;
Edit1.Text:=IntToStr(A7);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
A8:=8;
Edit1.Text:=IntToStr(A8);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
A9:=9;
Edit1.Text:=IntToStr(A9);
end;

procedure TForm1.Button11Click(Sender: TObject);
  begin
  if Edit1.Text=('123') then
A1:=123
    else
ShowMessage('Error1');
  if Edit1.Text=('123') then
A0:=A1+A5
    else
showmessage('Error');
Edit1.Text:=IntToStr(A0);
  end;

procedure TForm1.Button10Click(Sender: TObject);
begin

end;

end.