高手进，下面的程序什么地方出错了

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  mm,nn:string;
begin
if edit2.text = '' then
  showmessage('请输入您的密码!')
  else if edit1.Text = '' then
  showmessage('请输入您的帐号!');
  if (edit1.Text <> '') and (edit2.Text <> '') then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    adoquery1.sql.add('select * from Admin where AdminID=:mm and Password=:nn');    adoquery1.parambyname('mm').asstring:=trim(edit1.text);
    adoquery1.parambyname('nn').asstring:=trim(edit2.text);
    showmessage('用户'+ edit1.text+'你好！系统检测中，请稍候！') ;
    adoquery1.open;
    if adoquery1.Fields[0].value = '' then
    showmessage('帐号不存在!')
    else if adoquery1.Fields[1].Value = edit2.Text then
    begin
      Form2.Show;
      Form1.Close;
    end
    else
      showmessage('登录失败,请检查用户名和密码!')
  end;
end;end.

Answer 1

不用这么麻烦吧，
'select count(*) from Admin where AdminID=:mm and Password=:nnif ADOQuery1.RecordCount >0 then
登录成功
else 登录失败