提示type of expression must be boolean

Question

var
  au:Integer;
begin
  if (edt1.Text<>'')and (edt2.Text<>'')and (edt3.Text<>'')and
  (edt2.Text=edt3.Text) then
  begin
    Data.ADOLogin.append;  
    Data.ADOLogin['Username']:=edt1.text;
    Data.ADOLogin['Password']:=edt2.text;
    if cbb1.Text='6 缴费管理' then
    au:=6
    else if cbb1.Text='7 维修管理'then
    au:=7
     else if cbb1.Text:='8 出入管理'then
    au:=8
    else if cbb1.Text:='9 户籍管理'then
    au:=9
    else if cbb1.Text:='10 系统管理'then
    au:=10
    data.ADOLogin['Authorization']:=au;
    data.ADOLogin['LastLogin']:=Now;
    data.ADOLogin.post;
    end运行以上代码 提示type of expression must be boolean  该如何修改  各位帮帮忙

Answer 1

else if cbb1.Text:='8 出入管理'then
else if cbb1.Text:='9 户籍管理'then
else if cbb1.Text:='10 系统管理'then
 
应该是=不是：=还有，最后一个au:=10后面少个分号

Answer 2

if 语句应该是Boolean量，而不是赋值语句

Answer 3

else if cbb1.Text='8 出入管理'then
au:=8    
lse if cbb1.Text='9 户籍管理'then    
au:=9    
else if cbb1.Text='10 系统管理'then    
au:=10；