请牛人帮忙看看这几行delphi代码有什么错误？？

来源：百度知道编辑：UC知道时间：2024/05/28 06:03:05

代码如下
procedure TForm1.k(Sender: TObject);

begin
if bitbtn1.Caption='打开串口' then
begin
bitbtn1.Caption:='关闭串口';
combobox1.Enabled:=false;
combobox2.Enabled:=false;
combobox3.Enabled:=false;
combobox4.Enabled:=false;
combobox5.Enabled:=false;
end;
comm1.StartComm;
Panel4.Color:=cllime;
connectcheck();
end;
else
begin
bitbtn1.Caption:='打开串口';
Bitbtn1.enabled:=true;
Combobox1.Enabled:=true;//133行
combobox2.Enabled:=true;//134行
combobox3.Enabled:=true;//135行
combobox4.Enabled:=true;//136行
combobox5.Enabled:=true;//137行
comm1.StopComm;//138行
Panel4.Color:=clred;//139行
end;

编译错误提示如下：
[Error] Unit1.pas(129): Declaration expected but 'ELSE' found
[Error] Unit1.pas(131): Undeclared identifier: 'bitbtn1'
[Error] Unit1.pas(132): Missing operator or

光看下if else begin end的语法就不对；
combobox5.Enabled:=false下面的end;不应该有,另外最后少一个end;

把else前的分号去掉。其他错误要么在窗体中添加控件对象；要么在程序中创建

没看出来

关于Delph+SQL的Adotable定位问题请牛人帮忙看看这几行delphi代码有什么错误？？帮忙看看？？帮忙看看! 帮忙看看‘‘‘ 帮忙看看~! 帮忙看看!!! 帮忙看看~ 帮忙看看~~~~~~~~~~~~ 帮忙看看`