求解这段代码错在哪里

var
user:string;
code:string;
level:string;
begin
user:=form8.ComboBox1.Text;
if user='教师' then
code:=edit2.Text;
level:='2';
form8.ADOQuery1.Close;
form8.ADOQuery1.SQL.Clear;
form8.ADOQuery1.SQL.Add('select * from用户信息管理 where 用户名='''+user+'''');
form8.ADOQuery1.Open;
//showmessage('该用户已存在');
if form8.ADOQuery1.RecordCount=0 then
begin
form8.ADOQuery1.Close;
form8.ADOQuery1.SQL.Clear;
form8.ADOQuery1.SQL.Add('insert into 用户信息管理(用户名,密码,权限) values ('''+user+''','''+code+''','''+level+''')');
form8.ADOQuery1.ExecSQL;
end
else
showmessage('该用户已存在');
end;
end
else if user='学生' then
begin
user:=form8.ComboBox1.Text;
code:=edit2.Text;
level:='3';
form8.ADOQuery1.Close;
form8.ADOQuery1.SQL.Clear;
form8.ADOQuery1.SQL.Add('select * from用户信息管理 where 用户名='''+user+'''');
form8.ADOQuery1.Open;
//showmessage('该用户已存在');
if form8.ADOQuery1.RecordCount=0 then
begin
form8.ADOQuery1.Close;
form8.ADOQuery1.SQL.Clear;
form8.ADOQuery1.SQL.Add('insert into 用户信息管理(用户名,密码,权限) values ('''+user+''','''+code+''','''+level+''')');
form8.ADOQuery1.ExecSQL;
end
else
showmessage('该用户已存在');
end;
end; end.