unit eee;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
DataSource3: TDataSource;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
DataSource4: TDataSource;
// procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
// procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//procedure TForm1.Button2Click(Sender: TObject);
//begin
//adoquery1.Close;
//adoquery1.SQL.Clear;
//adoquery1.SQL.add('insert into Book(BookID，name'+')
//values('''+edit1.Text+''','''+edit2.Text+''')');//charu
//adoquery1.ExecSQL;
//end;
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from Book where BookID='''+edit1.Text+'''');
adoquery1.Open;
//edit2.Text:=adoquery1.Fields[1].AsString;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delect from book where BookID='''+edit1.Text +'''');//shanchu
adoquery1.ExecSQL;
end;
//procedure TForm1.Button3Click(Sender: TObject);
//begin
//adoquery1.Close;
//adoquery1.SQL.Clear;
//adoquery1.SQL.add('update Book set name='''+edit2.Text+''',
//'update Book set name='''+edit1.Text+''');
//adoquery1.ExecSQL;
end.

自己报上编译器提示的错误。

错误的地方就是你注释掉的地方，全部放出来，然后添加上 Button2 Button3
注释Button 单击事件里面的代码部分，不要注释delphi自动生成的地方
感觉就这个地方有问题，其他没发现