控件没有办法正常编写相应事件了!(20分)

我用Table做一个数据的浏览的时候,在界面放了几个Button,第一个Button作为Edit可以设置正常,但是剩下的几个Button例如做Insert的ONClick时就显示这个错误:Cannot find implementation of method insertButtonClick
还有其他的一些Button就直接显示Could not find source location add method appendButtonClick ,'END.'or INITIANLIZATION not found in unit source.
我的窗口的代码目前是这样:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
editButton: TButton;
insertButton: TButton;
appendButton: TButton;
insertRecButton: TButton;
appendRecButton: TButton;
deleteButton: TButton;
Table1: TTable;
procedure editButtonClick(Sender: TObject);
procedure insertButtonClick(Sender: TObject);
procedure insertButtonClick(Sender: TObject);
procedure insertButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.editButtonClick(Sender: TObject);
begin
try
table1.edit;
table1.FieldByName ('ename').AsString:='Tom';
table1.Post;
except
table1.Cancel;
showmessage('Operation failed');
exit;
end;


end;
而且运行会显示这种错误:Could not complie used unit 'Unit .pas'

try
table1.edit;
table1.FieldByName ('ename').AsString:='Tom';
table1.Post;
except
table1.Cancel;
showmessage('Operation failed');
exit;
end;
end;//这里少一个end，
//try
//。。
//except
//...
//end;

end;

把程序里： 先检查begin...end是否配对~~~
然后把
procedure insertButtonClick(Sender: TObject);
procedure insertButtonClick(Sender: TObject);
procedure insertButtonClick(Sender: TObject);
这几个定义删掉然后再到IDE设计器里面双击相关事件重新生成代码。
或者光标在interface部分你的类定义中按shift+ctrl+'C'生成implementation部分的代码。

我发觉如果源代码中begin...end不匹配的话， 双击事件生成代码时会在interface部分生成定义， 但implementation部分的代码生成不了。 以后的操作就进行不下去了。

我去试试
非常感谢大家!!

多人接受答案了。