[valvl63]

Привет.
Помогите. Не работают кнопки:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
    procedure button1click(Sender: TObject);
    procedure button2click(Sender: TObject);
    procedure button3click(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Button: array[1..3] of TButton;
  
implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
 var
     i:integer;
begin
  for i:=1 to 3 do
  begin
      Button[i]:=TButton.Create(form1);
      Button[i].Parent:=form1;
    case
      i of 1..3:
    end;
    begin
      if i=1 then
        left:=10;
        Button[i].Left:=Left;
        left:=left+83;
        Button[i].Top:=10;
        Button[i].Width:=75;
    end;
  end;
  begin
    Button[1].Name:='Button1';
    Button[1].Caption:='Назвать';
     Button[2].Name:='Button2';
     Button[2].Caption:='Показать';
      Button[3].Name:='Button3';
      Button[3].Caption:='Спрятать';
  end;
end;

procedure TForm1.button1click(Sender: TObject);
begin
   label1.Caption:='Класс';
end;  

procedure TForm1.button2click(Sender: TObject);
begin
    Label1.Visible:=true;
end;

procedure TForm1.button3click(Sender: TObject);
begin
   Label1.Visible:=false;
end;  

end.