送分帖！调试时出现Missing operator or semicolon现象

[tq1984]

执行下面代码提示错误：[Error] Unit1.pas(56): Missing operator or semicolon
奇怪的是提示是Button1Click这事件里的Begin这一行，实在想不通，Begin这行，后面没有其他字符了，也没有什么特别，为什么会提示出错？
而Edit1Change事件的Begin却没有提示错误。这是怎么回事？

procedure TForm1.Edit1Change(Sender: TObject);
var strsql:string;
begin
if trim(edit1.Text)<>''then
begin
strsql:='select dw_bh,dw_mc,dw_dz,dw_dh,dw_jbr_dh,dw_yb_ft,dw_yb_bak,cbrq,shrq,dw_khyh,dw_khyh_zh,dw_khyh_mc from cbdw where dw_bh like '''+trim(edit1.Text)+'%''';
if adoquery1.Active then
adoquery1.Active:=false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(strsql);
adoquery1.Active:=true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var strsql1:string;
begin
strsql1:='update cbdw set dw_yb_ft='1',dw_yb_bak='+#39+'正常'+#39+' where dw_bh='+trim(edit2.text)+'''';
if adoquery1.Active then
adoquery1.Active:=false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(strsql1);
adoquery1.Active:=true;

end;

[andorok]

strsql1:='update cbdw set dw_yb_ft='1',dw_yb_bak='+#39+'正常'+#39+' where dw_bh='+trim(edit2.text)+'''';
有错！'1'

[Randomize]

strsql1:='update cbdw set dw_yb_ft=''1'',dw_yb_bak='+#39+'正常'+#39+' where dw_bh='+trim(edit2.text)+'''';

[jinjazz]

strsql1:='update cbdw set dw_yb_ft=''1'',dw_yb_bak='+
#39+'正常'+#39+' where dw_bh='''+trim(edit2.text)+'''';

[delphipan]

曾分

[GoldShield]

蹲点分

[sunweihuacd]

同意楼上的仁兄

[tq1984]

明天去单位试试，如果成功，马上结帖！谢谢各位。