程序都能调通，但是任何按键都没反映，帮帮忙~

刚接触DELPHI，按照《Delphi+ SQL Server 数据库应用系统开发与实例》——仓库信息管理系统 做了一边。
运行后发现，每个窗体上的按键 按了都没有反映，但是每个BUTTON上，都编上了程序
各位大哥大姐们，帮忙看看是啥原因，
以下程序是登录窗口的代码：
unit login;  //单元文件名interface   //接口定义部分uses    //指明使用的单元
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB,usertable_unit;type   //声明类型部分
 Tloginfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    user_ed: TEdit;
    pwd_ed: TEdit;
    login_btn: TButton;
    cancel_btn: TButton;
    procedure login_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private   //窗体所调用类的实例名
    user:Tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;var  //变量声明
  loginfrm: Tloginfrm;
  userlevel:string;
  userpwd:string;
implementationuses main, dblink, datamodule;{$R *.dfm}procedure Tloginfrm.login_btnClick(Sender: TObject);
var
 user1:TStrings;
begin
  try  //判断数据表中是否存在记录
  user1:=user.getuserrec(user_ed.text);
  userlevel:=user1[2];  //获取用户权限
  userpwd:=user1[1];
except
  loginfrm.Hide;
  dblinkfrm.Show;
  exit;
end;
if user1[0]='' then
begin
application.MessageBox('对不起，没有这个用户名！','提示：',mb_ok);
exit;
end
else
begin
if   pwd_ed.Text=user1[1]   then
begin
 if    user1[2]='系统管理员'  then
 begin
  loginfrm.Hide ;
  mainfrm.Show;
 end
 else
 begin
  loginfrm.Hide ;
  mainfrm.N1.Enabled :=false;   //基本数据管理
  mainfrm.N5.Enabled :=false;   //出入库信息管理
  mainfrm.N16.Enabled :=false;  //库盘点信息管理
  mainfrm.N22.Enabled :=false;  //采购计划单信息管理
  mainfrm.N12.Enabled :=false;  //系统管理
  mainfrm.N18.Enabled :=false;  //系统数据备份
  mainfrm.Show;
 end;end
else
begin
application.MessageBox('对不起，你的密码不对！','提示：',mb_ok);
pwd_ed.SetFocus ;
end;
end;
end;
procedure Tloginfrm.cancel_btnClick(Sender: TObject);
begin
application.Terminate ;
end;procedure Tloginfrm.FormCreate(Sender: TObject);
begin
user:=Tusertable.create;
end;procedure Tloginfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
user.free;
end;end.