每一个实验,失败了.朋友们帮忙看看.

我在一个窗体上放置了3个SpeedButton、3个BitBlt按钮和一个普通按钮设置窗体的name为mainForm,3个加速按钮的Name为BitShow BitHide  BitExuit 3个位图按钮的name分别为SBLeft SBMid  SBRight. 大家帮我看一下是哪里错了。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;type
  TMainForm = class(TForm)
    BtDisplay: TButton;
    BitShow: TSpeedButton;
    BitExit: TSpeedButton;
    BitHide: TSpeedButton;
    SBLeft: TBitBtn;
    SBMid: TBitBtn;
    SBRight: TBitBtn;
    procedure SBLeftClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitShowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.SBLeftClick(Sender: TObject);
begin
    Btdisplay.Caption:='选中左边';
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.Caption:='按钮实例';
  MainForm.Width:=480;
  MainForm.Height:=380;
  MainForm.Top:=150;
  MainForm.Left:=300;   //设置窗体大小
  //下面设置3个加速按钮的属性
  BitShow.Kind:=bkOK;
  BitShow.Caption:='显示';
  BitShow.Layout:=blGlyphLeft;
  BitShow.Default:=true;
  BitHide.Kind:=bkNO;
  BitHide.Caption:='隐藏';
  BitExit.Kind:=bkAbort;
  BitExit.Caption:='退出';
  BitExit.Cancel:=true;
  BitExit.Layout:=blGlyphRight;
  //下面设置三个位图按钮的属性
  SBLeft.Visible:=false;
  SBMid.Visible:=false;
  SBRight.Visable:=false;
  BtDisplay.Visiable:=false;
  SBLeft.Caption:='左边';
  SBMid.Caption:='中间';
  SBRight.Caption:='右边';
  SBLeft.GroupIndex:=1;
  SBMid.GroupIndex:=1;
  SBRight.GroupIndex:=1; //设为同一样,用来模拟单选按钮
  BtDisplay.Visable:=false;
  BtDisplay.Caption:='未选中';
end;procedure TMainForm.BitShowClick(Sender: TObject);
begin
  SBLeft.Visible:=true;
  SBMid.visible:=true;
  SBRight.Visible:=true;
  BtDisplay.Visible=true;
  end;end.