用delphi写的登录界面代码运行时出现错误提示

代码如下procedure TForm1.BitBtn1Click(Sender: TObject);var password:string; UserName:string; QX:string; logintimes:integer;beginadoquery1.SQL.Clear;adoquery1.SQL.Add(✀select 密码，权限 from f_user✀);adoquery1.SQL.Add(✀where 姓名=:姓名✀);adoquery1.Parameters.ParamByName(✀姓名✀).Value:=ComboBox1.Text;adoquery1.Open;if adoquery1.RecordCount>0 then begin password:=adoquery1.FieldValues[✀密码✀]; if edit1.Text=password then begin UserName:=ComboBox1.Text; self.Hide; QX:=adoquery1.FieldValues[✀权限✀]; with form2.Create(nil) do try ShowModal; finally free; end; end else begin logintimes:=logintimes+1; if logintimes<3 then begin messagebox(handle,pchar(✀密码✀+inttostr(logintimes)+ ✀次错误，请重新摄入！✀),✀密码错误✀,mb_ok or mb_iconerror); edit1.Text:=✀✀; edit1.SetFocus; end else begin messagebox(handle,✀密码三次错误请关闭！✀,✀密码错误✀,mb_iconerror); application.Terminate; end; end; end; adoquery1.Close; freeandnil(adoquery1);end;