求高手帮我看下我的代码哪出错了

Question

=========Unit1unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, DBCtrls, ExtCtrls, Mask, Grids, DBGrids;type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBComboBox1: TDBComboBox;
    DBRadioGroup1: TDBRadioGroup;
    DBMemo1: TDBMemo;
    DBImage1: TDBImage;
    ADOConnection1: TADOConnection;
    Button1: TButton;
    Button4: TButton;
    Button7: TButton;
    Button8: TButton;
    Button6: TButton;
    Button5: TButton;
    Button3: TButton;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
ADOTable1.Active:=true;
ADOTable2.Active:=true;end;procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  if ADOTable1.State=dsInsert then
  StatusBar1.Panels[0].Text:='数据表处于插入状态';
  if ADOTable1.State=dsEdit then
  StatusBar1.Panels[0].Text:='数据表处于编辑状态';
  if ADOTable1.State=dsBrowse then
  StatusBar1.Panels[0].Text:='数据表处于浏览状态';
  if ADOTable1.State=dsSetKey then
  StatusBar1.Panels[0].Text:='数据表处于查询状态';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOTable1.CanModify then
  begin
  ADOTable1.Append;
  Panel1.Enabled:=true;
  DBNavigator1.Enabled:=false;
  Button1.Enabled:=false;
  Button2.Enabled:=false;
  Button3.Enabled:=false;
  Button4.Enabled:=false;
  Button8.Enabled:=false;
  end              else
  showmessage('当前数据表不能新增记录');end;procedure TForm1.Button2Click(Sender: TObject);
begin
   if MessageDlg('确定要删除当前记录吗？',mtInformation,[mbOK,mbCancel],0)=mrOK then
   ADOTable1.Delete;
   
end;procedure TForm1.Button3Click(Sender: TObject);
begin
    if ADOTable1.CanModify then
    begin
    ADOTable1.Edit;
    DBNavigator1.Enabled:=false;
    Button1.Enabled:=false;
    Button2.Enabled:=false;
    Button3.Enabled:=false;
    Button4.Enabled:=false;
    Button5.Enabled:=false;
    Button8.Enabled:=false;
    end        else
    showmessage('当前数据表不能被修给');
end;procedure TForm1.Button4Click(Sender: TObject);
var
   i,code:inter;
   scope:string;
begin
   repeat
   scope:=InputBox('移动指针位置','请输入移动距离：','0');
   Val(scope,i,code);
   if code<>0
   ShowMessage('你输入了一个错误的移动范围，请重试！')；
   until code=0;
   ADOTable1.MoveBy(i);end;procedure TForm1.Button5Click(Sender: TObject);
var
   Loctstr:string;
begin
     loctstr:=InputBox('按学号查询','请输入学号:','0');
     if not ADOTable1.Locate('XH',loctstr,[loCaseInsensitive]) thenend;procedure TForm1.Button6Click(Sender: TObject);
begin
   if ADOTable1.Modified then
   begin
   ADOTable1.Post;
   Panel1.Enabled:=false;
   DBNavigator1.Enabled:=true;
   Button1.Enabled:=true;
   Button2.Enabled:=true;
   Button3.Enabled:=true;
   Button4.Enabled:=true;
   Button5.Enabled:=true;
   Button8.Enabled:=true;
   end;
end;procedure TForm1.Button7Click(Sender: TObject);
begin
   ADOTable1.Cancel;
   Panel1.Enabled:=false;
   DBNavigator1.Enabled:=true;
   Button1.Enabled:=true;
   Button2.Enabled:=true;
   Button3.Enabled:=true;
   Button4.Enabled:=true;
   Button5.Enabled:=true;
   Button8.Enabled:=true;
   end;procedure TForm1.Button8Click(Sender: TObject);
begin
   Close;
end;end.
===============Project1
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 1

构建
  [错误] Unit1.pas(75): Undeclared identifier: 'StatusBar1'
  [错误] Unit1.pas(75): Missing operator or semicolon
  [错误] Unit1.pas(77): Missing operator or semicolon
  [错误] Unit1.pas(79): Missing operator or semicolon
  [错误] Unit1.pas(81): Missing operator or semicolon
  [错误] Unit1.pas(89): Undeclared identifier: 'Panel1'
  [错误] Unit1.pas(126): Undeclared identifier: 'inter'
  [警告] Unit1.pas(133): Comparing signed and unsigned types - widened both operands
  [错误] Unit1.pas(133): Illegal character in input file: '；' ($A3BB)
  [错误] Unit1.pas(143): Undeclared identifier: 'loctstr'
  [错误] Unit1.pas(148): Statement expected but 'PROCEDURE' found
  [错误] Unit1.pas(153): Undeclared identifier: 'Panel1'
  [错误] Unit1.pas(167): Undeclared identifier: 'Panel1'
  [错误] Unit1.pas(48): Unsatisfied forward or external declaration: 'TForm1.Button5Click'
  [致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 2

构建
  [错误] Unit1.pas(75): Undeclared identifier: 'StatusBar1'
  [错误] Unit1.pas(75): Missing operator or semicolon
  [错误] Unit1.pas(77): Missing operator or semicolon
  [错误] Unit1.pas(79): Missing operator or semicolon
  [错误] Unit1.pas(81): Missing operator or semicolon
  [错误] Unit1.pas(89): Undeclared identifier: 'Panel1'
  [错误] Unit1.pas(126): Undeclared identifier: 'inter'
  [警告] Unit1.pas(133): Comparing signed and unsigned types - widened both operands
  [错误] Unit1.pas(133): Illegal character in input file: '；' ($A3BB)
  [错误] Unit1.pas(143): Undeclared identifier: 'loctstr'
  [错误] Unit1.pas(148): Statement expected but 'PROCEDURE' found
  [错误] Unit1.pas(153): Undeclared identifier: 'Panel1'
  [错误] Unit1.pas(167): Undeclared identifier: 'Panel1'
  [错误] Unit1.pas(48): Unsatisfied forward or external declaration: 'TForm1.Button5Click'
  [致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 3

procedure TForm1.Button5Click(Sender: TObject);
var
  Loctstr:string;
begin
  loctstr:=InputBox('按学号查询','请输入学号:','0');
  if not ADOTable1.Locate('XH',loctstr,[loCaseInsensitive]) thenend;这里if then后面怎么没有东西了啊？