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

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

unit Unit1;

interface

uses
  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;