哪位大哥知道这是什么问题！？

Question

做设计做到一半，运行弹出一错误窗口，显示如下：
Project Project1.exe raised exception class ECLassNotFound with message'Class TButton not fount ',Process stopped.Use Step or Run to continue.哪位大哥帮我看看是什么问题啊。。要怎么解决啊～～～拜托了！！！

Answer 1

TButton not fount你的按钮出问题了？
把按钮删掉重新加……

Answer 2

Type
 ...
  Button1: TButton;        //是不是将这句屏掉了？
仔细检查一下代码！

Answer 3

有Button1: TButton;   这句呢

Answer 4

unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables,
  Buttons, ADODB;type
  TForm3 = class(TForm)
    Label1: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Bevel2: TBevel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    Memo1: TMemo;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form3: TForm3;implementation{$R *.dfm}procedure TForm3.RadioButton1Click(Sender: TObject);
begin
memo1.Text:='学生学号=';
end;procedure TForm3.RadioButton2Click(Sender: TObject);
begin
memo1.Text:='姓名=';
end;procedure TForm3.RadioButton3Click(Sender: TObject);
begin
memo1.Text:='所在院系=';
end;procedure TForm3.RadioButton4Click(Sender: TObject);
begin
memo1.Text:='所学专业=';
end;procedure TForm3.RadioButton5Click(Sender: TObject);
begin
memo1.Text:='宿舍=';
end;procedure TForm3.RadioButton6Click(Sender: TObject);
begin
memo1.Text:='籍贯=';
end;procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
adotable1.refresh;
with adotable1 do
try
  disablecontrols;
  filtered:=false;
  memo1.Text:=memo1.Text+''''+edit1.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if adotable1.recordcount=0 then begin
messagebeep(1);
showmessage('没有符合条件的学生,请确认条件或放弃查询!');
if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 adotable1.close;
 adotable1.open;
end;
end else begin
 if messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 adotable1.close;
 adotable1.open;
end;
 end;
end;end;end.
报错为：
[Error] Unit3.pas(80): Undeclared identifier: 'adotable1'
[Error] Unit3.pas(83): Undeclared identifier: 'disablecontrols'
[Error] Unit3.pas(84): Undeclared identifier: 'filtered'
[Error] Unit3.pas(86): Undeclared identifier: 'filter'
[Error] Unit3.pas(89): Undeclared identifier: 'enablecontrols'
[Error] Unit3.pas(90): 'THEN' expected but identifier 'recordcount' found
[Error] Unit3.pas(95): Missing operator or semicolon
[Error] Unit3.pas(96): Missing operator or semicolon
[Error] Unit3.pas(101): Missing operator or semicolon
[Error] Unit3.pas(102): Missing operator or semicolon
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit3.pas'这些错要怎么改啊！～！！！

Answer 5

try
  disablecontrols;
  filtered:=false;
  memo1.Text:=memo1.Text+''''+edit1.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
end; ←要加！（貼了二個？）