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

[juckxu]

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.

[scvzhang]

不用这么麻烦吧，
'select count(*) from Admin where AdminID=:mm and Password=:nn

if ADOQuery1.RecordCount >0 then
登录成功
else 登录失败

[redher]

鼠标选中parambyname ,按F1.