delphi的编程问题(菜鸟)

Question

unit Unit1111;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  Label1: TLabel;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  //把 Lable1 的 Visible 属性设置为 True，以显示该组件
Label1.Visible :=True;end;procedure TForm1.Button2Click(Sender: TObject);
begin
procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
  Application.Terminate; //应用程序关闭
end;end;end.
为什么我在编译的时候会出现错误?有劳各位了.

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
begin
procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
  Application.Terminate; //应用程序关闭
end;end;改成procedure TForm1.Button2Click(Sender: TObject);
beginend;procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
  Application.Terminate; //应用程序关闭
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
begin
 Application.Terminate; //应用程序关闭
end;

Answer 3

unit Unit1111;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  Label1: TLabel;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  //把 Lable1 的 Visible 属性设置为 True，以显示该组件
Label1.Visible :=True;end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;end.

Answer 4

procedure Button1Click(Sender: TObject);和procedure TForm1.ButtonCloseClick(Sender: TObject);统一下